Essa macro tb resolve...
Sub Excl_Dados_Dupl()
Worksheets("Plan1").Range("A1").Sort _
key1:=Worksheets("Plan1").Range("A1")
Set currentCell = Worksheets("Plan1").Range("A1")
Do While Not IsEmpty(currentCell)
Set nextCell = currentCell.Offset(1, 0)
If nextCell.Value = currentCell.Value Then
currentCell.EntireRow.Delete
End If
Set currentCell = nextCell
Loop
End Sub
Entretanto, os dados duplicados devem estar na Coluna A e não deve existir linhas em branco entre os dados...
Falow! t+!