VBAでRangeメソッドを使用して連結するにはどうすればよいですか

Question

2 つの列を結合し、find メソッドを使用しています。1 つのワークシートではセルを使用し、もう 1 つのワークシートでは範囲を使用していますが、範囲を使用するとコードが機能しません。エラーが発生します。以下はコードです。型不一致エラーが発生します。

 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