Wie kann ich mit der Range-Methode in VBA verketten?

Question

Ich kombiniere zwei Spalten und verwende die Suchmethode. In einem Arbeitsblatt verwende ich eine Zelle und in dem anderen einen Bereich, aber wenn ich einen Bereich verwende, funktioniert mein Code nicht. Ich erhalte eine Fehlermeldung. Hier ist der Code unten. Ich erhalte eine Fehlermeldung „Typ stimmt nicht überein“.

 Do While ws1.Cells(count, 1).Value <> ""
    Set comparisonCell = ws2.Range("D:D") & "" & ws2.Range("C:C").Find(What:=ws1.Cells(count, 4) & "" & ws1.Cells(count, 3))


    If Not comparisonCell Is Nothing Then
    ws1.Cells(count, 6) = comparisonCell.Offset(0, 2)
    count = count + 1
    Else: ws1.Cells(count, 6) = "New"
    count = count + 1
    End If
Loop