Macro Localizar e Substituir Por PROCV

[Henrique Marra]

Senhores boa tarde, preciso de uma ajuda sou novo no Forum e novo também no VBA do Excel

Tenho essa macro abaixo porem, ela executa não cola especial e ai da erro

fiz alguma coisa de errado e nai sei o que

a finalidade desta macro é achar os numeros das placas em uma planilha que está na rede

se alguém puder me ajudar, grato até o momento

e só procv fica muito pesado

Sub localizar_em_branco()

'essa Macro procurar pelo valor em branco no range D1:D10000 e substitui por procv

'e depois cola especial

Dim localizador As Variant

With Plan2.Range("D1 & D30000")

Set localizador = .Find("", LookIn:=xlValues)

If Not localizador Is Nothing Then

endereco = localizador.Address

Do

localizador.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-2],'H:\Implantação de Ativos\[N_de Placas.xlsx]Geral'!C2:C5,2,0),"""")"

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

Set localizador = .FindNext(localizador)

Loop While Not localizador Is Nothing And localizador.Address <> endereco

End If

End With

End Sub

[benzadeus]

Onde você obtém erro nessa macro?