Dica de VBA - Eliminando valores em duplicidade

O código a seguir pode ser aplicado para eliminar valores duplicados de uma série de dados dispostos em uma coluna:


Sub EliminarDuplicidades()
Dim wf  As WorksheetFunction
Dim rg  As Range
Dim k   As Integer
Dim Col As Variant

'Solicitar a informação sobre a coluna que será pesquisada
Col = Application.InputBox(Prompt:="Informe o número ou letra da coluna a ser pesquisada", _
Title:="eliminar dados duplicados em uma coluna", Type:=3)

'Atribuir o objeto Worksheetfunction à variável wf
Set wf = Application.WorksheetFunction

'Loop para percorrer as células da coluna indicada
'O loop se inicia na última célula preenchida da coluna em direção à célula da linha 1
For k = Cells(Rows.Count, Col).End(xlUp).Row To 1 Step -1

'Se houver mais repetições do valor na coluna selecionada, a linha correspondente é apagada
If wf.CountIf(Range(Cells(1, Col), Cells(Cells(Rows.Count, Col).End(xlUp).Row, Col)) _
, Cells(k, Col)) > 1 Then Rows(k).Delete
Next k
End Sub

[ ]s