Olá @Gnostico,
Fiz o código abaixo em vba. Espero que ajude.
Link da planilha Exemplo:
http://www.mediafire.com/file/8qovjjj8oapjq6w/Duplicados.xlsm
Sub Apagar_Duplicados()
Dim Ws As Worksheet
Dim Rng As Range, Cel As Range
Dim Titulo As String
On Error Resume Next
Application.DisplayAlerts = False
Set Ws = ActiveSheet
Titulo = "Remover valores duplicados - By PedroSaavas@gmail.com"
'Seleciona a tabela
Set Rng = Ws.Application.InputBox("Selecione a tabela.", Titulo, Type:=8)
If Rng.Cells.Count < 1 Then Exit Sub
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each Cel In Rng
If Ws.Application.WorksheetFunction.CountIf(Rng, Cel) > 1 Then
Cel.Select
Range(Selection, Selection.End(xlDown)).RemoveDuplicates Columns:=1, Header:=xlNo
Range(Selection, Selection.End(xlDown)).Sort key1:=Cel, Order1:=xlAscending, Header:=xlGuess, Orientation:=xlTopToBottom
End If
Next Cel
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub