¿Para copiar fórmulas?... Aquí tendremos otra "historia".
Por ejemplo, un código podría ser:
Código:
Sub CopiadoFORMULAS_0()
[A4].Formula = [A1].Formula
[C4].Formula = [C1].Formula
End Sub
Sin embargo notarás que si la celda a copiar (A1 ó C1 en este caso) tiene referencias a rangos, lo que se copia puede no ser siempre útil (te sugiero que hagas la prueba y lo compruebes).
De modo que la alternativa sería:
Código:
Sub CopiadoFORMULAS_1()
[A1].Copy Destination:=[A4]
[C1].Copy Destination:=[C4]
End Sub
que copia TODO (fórmula, formato, etc.)
Mientras que si lo que deseas es copiar SOLAMENTE las fórmulas, inevitablemente caeremos en:
Código:
Sub CopiadoFORMULAS_2()
[A1].Copy: [A4].PasteSpecial Paste:=xlPasteFormulas
[C1].Copy: [C4].PasteSpecial Paste:=xlPasteFormulas
End Sub
Finalmente deseo hacerte notar un detalle muy importante: en NINGUNO de los códigos que te he pasado hay una "selección efectiva" (ni del rango a copiar ni del rango donde se pegan los datos).
De modo que puedes estar seleccionando cualquier otra celda mientras que las macros trabajan con A1, A4, C1 y C4.
Cuando esto se puede hacer -simplemente- se gana en eficiencia.
Saludos.