Dim Linha, LinhaFinal As Integer
LinhaFinal = Range("A1048576").End(xlUp).Row
For Linha = 1 To LinhaFinal
If Range("A" & Linha).Value <> "" Then
Range("B" & Linha).Value = "=""'""&RC[-1]&""'""&"","""
End If
Next Linha

Isaias, se entendi corretamente, teste a rotina abaixo e veja se é isto:

Sub CopyFormula()

Dim Linha, LinhaFinal As Integer

Linha = 1
LinhaFinal = Range("A1048576").End(xlUp).Row

    If Range("A" & Linha).Value <> "" Then
        
        Range("B" & Linha).Copy
    
        Range("B" & Linha + 1 & ":" & "B" & LinhaFinal).PasteSpecial
        
        Application.CutCopyMode = False
        
    End If

End Sub

[]s