Achar um valor e substituir pela célula

[PedroCapital]

Bom dia Senhores,

Sou um pouco leigo em VBA e gostaria de uma ajuda se possível.

Tenho uma coluna bem grande e preciso localizar e subtituir um valor pelo valor da célula acima.

Exemplo:

ColunaA

1

2

3

2

3

#N/A N/A

#N/A N/A

#N/A N/A

4

5

Precisava que todos "#N/A N/A" fossem transformados no número 3, no caso.

Tentei o seguinte código:

Cells.Replace What:="#N/A N/A", Replacement:=Selection.FillDown, LookAt:=xlPart, SearchOrder _

:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

No entanto, ele acaba substituindo o "#N/A N/A" por "VERDADEIRO" e não pelo valor da célula acima.

Alguém pode me ajudar?

Obrigado!

[fahledu]

Ve se esse código ajuda

Sub Subst()
Dim Rg As Integer
Rg = 1
Do
If Range("A" & Rg).Value = "N/A" Then
Range("A" & Rg).Value = Range("A" & Rg - 1).Text
Rg = Rg + 1
Else
Rg = Rg + 1
End If
Loop While Range("A" & Rg).Value <> ""

End Sub