Una macro que me ejecut la misma función que el comando "quitar duplicados"para una columna

Te mando mi solución y sigue mis instrucciones:

Selecciona con el ratón todos los datos de esa columna, NO la columna entera, solo las celdas que contienen los datos a analizar. Después solo tienes que ejecutar esta macro y todo listo!

Sub quitarepes()
For Each celda In Selection
If InStr(valores, celda.Value) = 0 Then
valores = valores & "," & celda.Value
End If
Next
valores = Mid(valores, 2, Len(valores) - 1)
valores = Split(valores, ",")
Selection.ClearContents
For x = 0 To UBound(valores)
ActiveCell.Value = valores(x)
ActiveCell.Offset(1, 0).Select
Next
End Sub

recuerda finalizar y puntuar la consulta