Hola experto necesito tu ayuda

Hola, eso es una macro de valores repetidos y que los borre sería esta:
Sub Borrar_Repetidos()
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 "Trabajo Terminado!"
End Sub
Cambia las referencias a nombre de hoja y rango donde trabajar a tu necesidad.
>Un saludo
>Julio
PD: Si te ha servido comenta, puntua y finaliza la consulta.Gracias.

Hola amigos, no soy el experto, por desgracia esta convaleciente de una intervencion quirurgica que le imposibilita ponerse en el ordenador.
Me ha encargado que os comunique que finaliceis las consultas, y las dirijais a otros expertos para evitar tenerlas pendientes mucho tiempo sin contestacion.
Siente mucho no poder ayudaros de momento, cuando vuelva a estar disponible lo vereis por su estado en la Web.
Disculpar por no poder continuar con la ayuda.
Un saludo para todos de su parte.