Sub test()
Dim x As Long, l As Long, c As Range
Application.ScreenUpdating = False
x = Range("A65536").End(xlUp).Row
For l = x To 1 Step -1
Set c = Range("A1:A" & x).Find(Range("A" & l).Value, Range("A" & l), xlValues, xlWhole, , , False)
If c.Row = l Then Rows(l).Delete
Next l
Application.ScreenUpdating = True
End Sub