Sub t()
Dim fn As Range, crt As Variant, adr As String
With ActiveSheet
.Range("A12:B12", .Range("A12:B12").End(xlDown)).ClearContents
crt = .Range("A9").Value
Set fn = Intersect(.UsedRange, .Range("C:E")).Find(crt, , xlValues, xlWhole)
If Not fn Is Nothing Then
adr = fn.Address
Do
If Range("A12") = "" Then
.Cells(fn.Row, 1).Resize(, 2).Copy .Range("A12")
Else
.Cells(fn.Row, 1).Resize(, 2).Copy .Cells(Rows.Count, 1).End(xlUp)(2)
End If
Set fn = Intersect(.UsedRange, .Range("C:E")).FindNext(fn)
Loop While fn.Address <> adr
End If
End With
End Sub