liste karşılaştırması yapıp satır silme

[KAYA212]

Merhaba,
elimdeki excel tablosunda sayfa 1 de yazdığım değerleri sayfa 2 ile karşılaştırıp sayfa 2 de olmayanların olduğu satırı sildirmek istiyorum.Mesela Ali ve Ahmetin olduğu satırın silinmesi gerekir.
Yardımlarınızı rica ediyorum.
teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.

Sub DoluÇerçeve1_Tıklat()
Dim sh As Worksheet, sat As Long, i As Long, sat2 As Long
Set sh = Sheets("Sayfa2")
Sheets("sayfa1").Select
Application.ScreenUpdating = True
sat = Cells(Rows.Count, "A").End(xlUp).Row
sat2 = sh.Cells(Rows.Count, "A").End(xlUp).Row
For i = sat To 3 Step -1
    If WorksheetFunction.CountIf(sh.Range("A1:A" & sat2), Cells(i, "A").Value) = 0 Then
        Rows(i).Delete xlUp
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlen@hotmail.com", _
    vbOKOnly + vbInformation, Application.UserName

End Sub