Acredito que este código possa atendê-lo
Sub EliminarRepetições()
Dim Lista1 As Range
Dim Lista2 As Range
Dim i As Integer
Dim wf As WorksheetFunction
Dim Valor As Long
Set Lista1 = Sheets("Plan1").[A1:A100]
Set Lista2 = Sheets("Plan2").[A1:A80]
Set wf = Application.WorksheetFunction
On Error Resume Next
Valor = 0
For i = Lista2.Rows.Count To 1 Step -1
Valor = wf.Match(Lista2.Cells(i, 1), Lista1, 0)
If Valor <> 0 Then
Lista2.Rows(i).Delete
Valor = 0
End If
Next i
End Sub
[ ]s
Adilson Soledade - MOS
http://adilsonsoledade.blogspot.com/