Macro para eliminar valores repetidos

Si te vale esta comprueba que el rango de columna este bien o cambia por rango de columnas:
Sub DelDups_OneList()
Dim iListCount As Integer
Dim iCtr As Integer
Application.ScreenUpdating = False
iListCount = Sheets("hoja1").Range("A1:A100").Rows.Count
Sheets("hoja1").Range("A1").Select
Do Until ActiveCell = ""
For iCtr = 1 To iListCount
If ActiveCell.Row <> Sheets("hoja1").Cells(iCtr, 1).Row Then
If ActiveCell.Value = Sheets("hoja1").Cells(iCtr, 1).Value Then
Sheets("hoja1").Cells(iCtr, 1).Delete xlShiftUp
iCtr = iCtr + 1
End If
End If
Next iCtr
ActiveCell.Offset(1, 0).Select
Loop
Application.ScreenUpdating = True
MsgBox "Done Dude!"
End Sub

No me funciona