stangz71,
Copy the code to a module.
Run code with sheet Image1 as the active sheet.
Sub XferImage()
Dim i As Long
Dim c As Variant
Dim ws2lrow As Long, ws1lrow As Long
Dim ws2 As Worksheet
Dim ws1 As Worksheet
Set ws1 = Sheets("Image1")
Set ws2 = Sheets("Image2")
ws2lrow = ws2.Range("A65536").End(xlUp).Row
With ws1.Range("A3:A" & ws1.Range("a65536").End(xlUp).Row)
For i = 3 To ws2lrow
Set c = .Find(ws2.Cells(i, 1).Text, lookat:=xlWhole)
If c Is Nothing Then
''' data in ws2 not in ws1 copy to last row in data ws1''
ws1lrow = ws1.Range("A65536").End(xlUp).Row + 1
ws1.Cells(ws1lrow, 1).Value = ws2.Cells(i, 1).Text
ws1.Cells(ws1lrow, 2).Value = ws2.Cells(i, 2).Text
End If
Next i
End With
End Sub
Bookmarks