Me parece que no alcanzo a interpretar adecuadamente tu necesidad.
Sin embargo, este código realiza lo que quieres (teniendo en cuenta que solo copias valores).
Código:
Sub Copiado()
[A4].Formula = [A1]
[C4].Formula = [C1]
End Sub
A ver si podemos avanzar a partir de esta idea.
Saludos.