Find Query

Mike! Sorry Mate!
It was actually a wrong code. The code was looking at Columns "B", instead of D.
I think this is correct.

Sub find_copy()
Dim c2 As Range, c As Range
With Sheets("Sheet2")
LR = .UsedRange.Rows.Count
On Error Resume Next
 For Each c2 In .Range("D2:D" & LR)
   Set c = Sheets("Sheet1").Columns(1).Find(c2, , xlValues, xlWhole)
    If Not c Is Nothing Then
    c2.Offset(, 2).Resize(, 2).Copy Sheets("sheet3").Cells(Rows.Count, 11).End(xlUp).Offset(1).Resize(, 2)
    End If
   Next c2
 End With
End Sub