Ajuda em MACRO no excel... Não ta saindo o script...

[crs_design]

Fala galera.

To com uma dúvida sobre os scripts do excel...

Eu tenho uma macro que apaga todas as celulas que estão repetidas no documento.

 
Sub Repetidos()
Dim nIni As Integer
nIni = 1
For i = nIni To Plan1.UsedRange.Rows.Count
For j = i + 1 To Plan1.UsedRange.Rows.Count
If Range("A" & i).Value = Range("A" & j).Value Then
Rows(j).ClearContents
End If
Next
Next
End Sub

Ela funciona que é uma beleza, so que eu precisava também de uma macro que apagasse da coluna "A" tudo que tivesse escrito na coluna "B"

Alguém conhece como fazer este script???

[Consultor_GO]

Sub Apagar()

For I = 4 To 1000

If Cells(I, 1) = "" Then Exit For

On Error Resume Next

X = Application.WorksheetFunction.Match(Cells(I, 1), Range("B4:B1000"), 1)

If X = "" Then GoTo Fim:

X = X + 3

Cells(X, 2).Select

Selection.Delete Shift:=xlUp

X = ""

Fim:

Next I

End Sub

I=4 - coloquei as informaçoes começando na linha 4

Application.worksheetFunction.Match - acha o valor correspondente da celula da coluna a na coluna b

X=X+3 - como coloquei na coluna 4 tenho que somar mais três para chegar a linha correta