sheet 1 is like this
name data
a 1
s 2
d 3
f 4
g 5
h 6
j 7
k 8
l 9
sheet 2 is
name data
a 1
d 3
g 5
j 7
l 9
COPY SHEET 1 IN SHEET3 FROM a1
now try this macro test
Sub test()
Dim c() As String, j As Long, k As Long, cfind As Range
With Worksheets("sheet2")
j = WorksheetFunction.CountA(.Columns("A:A")) - 1
ReDim c(1 To j)
For k = 1 To j
c(k) = .Cells(k + 1, 1).Value
Next k
With Worksheets("sheet1")
For k = 1 To j
Set cfind = .Cells.Find(what:=c(k), lookat:=xlWhole)
If Not cfind Is Nothing Then
'cfind.Select
cfind.EntireRow.Delete
End If
Next k
End With
End With
End Sub
Sub undo()
Worksheets("sheet1").Cells.Clear
Worksheets("sheet3").Cells.Copy Worksheets("sheet1").Range("A1")
End Sub