[Achar um valor e substituir pela célula]

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!