Macro eliminar repetidos en Excel

Utilísima macro para eliminar repetido. A quién no se le han enchinado los cabellos por tener listas de cientos de filas que queremos sólo dejar registros únicos, aunque también se puede con filtro avanzado, esta vez se hará con macro:

Macro:

Sub repetidos()
Application.ScreenUpdating = False
Range(“A1”).Select
Do While Not IsEmpty(ActiveCell)
x = WorksheetFunction.CountIf(Range(“A:A”), ActiveCell)
If x > 1 Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Range(“A1”).Select
Application.ScreenUpdating = True
End Sub

Nota: para que la macro sea más rápida se recomienda ordenar los datos.