in spreasheets give a rangename to the first list as list1 and second list in another sheet as list2. both lisst1 and list2 are in columns A in the sheets..
try to run this sub ( I prepared this for both lists in the same sheet but I thing it will work evern if they are in differne sheets because the rangenamaes are workbook specific with refernces to the concerned sheet(s). the sub is
Public Sub test()
Worksheets("sheet2").Activate
Dim findc As Range
Dim cell As Range
For Each cell In Range("list1")
With Range("list2")
Set findc = .Find(cell)
End With
If Not findc Is Nothing Then GoTo line1
cell.Copy Destination:=Range("a1").End(xlDown).Offset(1, 0)
line1:
Next
End Sub
did you get what you want. confirm. hope no bugs.