Copiar formula a varias celdas en macro

Hola Tony..
Este es un medoto que se acciona por medio de un commandbuttom
insertado en la hoja1

asignas lo diguente :

Private Sub CommandButton1_Click()
ActiveCell.Activate
Dim Fi1 As Integer
Dim Ff1 As Integer
Dim Ci1 As Integer
Dim Cf1 As Integer
Dim Fi2 As Integer
Dim Ff2 As Integer
Dim Ci2 As Integer
Dim Cf2 As Integer
Dim H1 As Integer
Dim H2 As Integer
Dim Z As Variant
H1 = 2
H2 = 3
Fi1 = 9
Ff1 = 9
Ci1 = 1
Cf1 = 2
Fi2 = 13
Ff2 = 15
Ci2 = 3
Cf2 = 4
Application.Sheets(H1).Range(Range(Cells(Fi1, Ci1), Cells(Ff1,
Cf1)).Address).Copy

VBAProject.ThisWorkbook.Sheets(H2).Activate
VBAProject.ThisWorkbook.Sheets(H2).Range(Range(Cells(Fi2, Ci2), Cells(Ff2,
Cf2)).Address).Select
ActiveSheet.Paste
Application.CutCopyMode = False
VBAProject.ThisWorkbook.Sheets(1).Activate ´aqui (1) es el numero de hoja
deonde esta el boton


End Sub

Nota: los valores de filas y columnas iniciales y finales y el numero de
hjas los puedes ler desde cualquier celda que desees

ej: Cf2=VBAProject.ThisWorkbook.Sheets(H2).Range("A1")

Se que puede mejorarse este codigo...Pero...(asi funciona)
si quieres le colocas una instruccion application.screenupdating=False al
inicio
y luego True al final (para que no veas el parpadeo)
Cualquier cosa.. me avisas. Suerte...

Me alimento del conocimiento de todos


"Tony" wrote:

Hola a todos.

Quiero poner en una macro que me copie la fórmula de una celda concreta a
una serie de celdas que están en una fila. Lo que pasa es que el número de
celdas de destina es variable. ¿Cómo puedo hacerlo para ponerlo en la macro?.

Gracias por anticipado.