Eliminar Duplicados

Hola a todos!
De nuevo regreso con un aporte mas...

A raiz de varios temas similares (en uno de los foros que frecuento), y que muchos usuarios buscan este tipo de ayuda, y bueno me refiero a eliminar duplicados, aunque Excel, trae consigo esta herramienta, tenemos que decir que solo es validad para columnas continuas, o si seleccionamos una BD que tenga registros iguales, es decir en modo de filas y funciona perfectamente. Bueno la limitante de esta poderosa herramienta es que no elimina registros o datos, cuando por ejemplo en varios registros hay igualdad, pero en dos columnas no continuas... a continuacion adjunto un archivo, donde la columna "A" que es la Matricula y la columna "F" que son los Kilometros, y que la macro elminara todos los registros iguales, dejando solo uno de ellos

Espero que sirva

Sub Elimina_duplicadosGP()

Dim uf As Long, ColA As Long, ColF As Long, Eliminados As Long
With Application
    .ScreenUpdating = False
    uf = Range("A" & Rows.Count).End(xlUp).Row
    Eliminados = 0
    For x = uf To 3 Step -1
        ColA = .CountIf(Range("A2:A" & x), Range("A" & x))
        ColF = .CountIf(Range("F2:F" & x), Range("F" & x))
        If ColA > 1 And ColF > 1 Then Eliminados = Eliminados + 1: Rows(x).Delete '.Interior.ColorIndex = 6
    Next
    With .ActiveWindow
        .ScrollColumn = 1: .ScrollRow = 1: Range("A1").Select
    End With
    .ScreenUpdating = True
    If Eliminados = 0 Then _
    MsgBox "No existen registros que eliminar", vbExclamation, "Informacion": Exit Sub
    MsgBox "Registros eliminados:  " & VBA.Format(Eliminados, "#,##0"), vbInformation, "Exito!"
End With

End Sub

Saludos desde Honduras