The example below assumes all your data is on sheet1 (list of names in column A), your list to find and import is on sheet2 column A and that you want all the found results in sheet3.
Sub Find_n_Move_Data()
Dim SearchRng As Integer, i As Integer, DestRng As Range, MyCell As Range
Application.ScreenUpdating = False
SearchRng = Sheets("Sheet2").Range("A65536").End(xlUp).Row
Set rng = Sheets("Sheet1").Range(Range("A2"), Range("A65536").End(xlUp))
Set DestRng = Sheets("Sheet3").Range("A65536").End(xlUp).Offset(1, 0)
For i = 2 To SearchRng
For Each MyCell In rng
If MyCell.Value = Sheets("Sheet2").Range("A" & i).Value Then
MyCell.EntireRow.Copy Destination:=DestRng
End If
Next
Next
Application.ScreenUpdating = True
End Sub
hope this helps!
Bookmarks