Amigo, refiz a sua macro de um jeito que eu gosto de fazer. Não quero desmerecer a sua, mas quero te dar uma outra visão. As vezes isso abre caminho. Segue ai:

Sub DELETAR_DADOS_REPETIDOS()

Dim i, l

For i = 1 To Cells.SpecialCells(xlLastCell).Row
If Cells(i, 1) = NULE Then Exit For
Next

For l = i To 2 Step -1
Cells(l, 1).Select

If Cells(l, 1) = Cells(l - 1, 1) Then
Range(Cells(l, 1), Cells(l, 4)).ClearContents
End If

Next l

End Sub

O conceito eh o seguinte, primeiro ele conta quantas células existem na planilha, levando em conta que o dado da primeira coluna sempre estará preenchido.

Depois ele vem de baixo pra cima, comparando as células e apagando a informação desnecessária.

Espero que goste

=D

Daniel, Show de Bola......

Muito Obrigado....