Victor Coello respondió:
Sub elimina() Range("c2").Select Do While ActiveCell.Value <> "" conteo = Application.CountIf(Range("c2:c1000"), ActiveCell) If conteo > 1 Then Selection.EntireRow.Delete Else Selection.Offset(1).Select End If Loop End Sub Esto te elimina duplicados...