Excel - macro para copiar fórmulas de varias hojas contiguas

Hola a Tod@s, estoy tratando de hacer una macro que me permita copiar fórmula y datos a varias hojas, os explico a ver si alguien me puede ayudar:

Tengo un campo numérico que es el resultado de un sumatorio en página 1, G4, necesito que la macro copie este dato a L6 de la página 2. Pero necesito que esta fórmula se extienda por todas las páginas activas de forma que el valor G4 de la página 2 lo copie en la celda L6 de la página 3, y así sucesivamente hasta que agote las páginas activas.

Os pongo aquí la macro que estoy intentando usar sin éxito, por si os aclara algo:

sub Copiar_formula()
dim x as integer
for x=1 to activeworkbook.sheets.count
worksheets(x).cells(4,"G").Value=worksheets(x+1).cells(6,"L").Value
x=x+1
next

end sub

Hay alguien que me ilumine...!!??

Gracias adelantadas!!

Muy buenas.

Tienes algunos errores en la macro:
- El bucle no puede ir hasta ActiveWorkbook.Sheets.Count, sino hasta ActiveWorkbook.Sheets.Count - 1
- Estás copiando en G4 lo que tienes en L6 y según tu explicación lo quieres al revés
- La instrucción For ... Next ya hace aumentar el valor de x, por lo que no tienes que poner x=x+1

Con todo lo anterior, supongo que servirá la macro de esta manera:

Sub Copiar_formula()
Dim x As Integer
For x = 1 To ActiveWorkbook.Sheets.Count - 1
Worksheets(x + 1).Cells(6, "L").Value = Worksheets(x).Cells(4, "G").Value
Next
End Sub

Un saludo. Juanjo.

una pequeña corrección:
la variable x va desde 1 hasta ActiveWorkbook.Sheets.Count

(el índice de la 1er hoja es 1, no 0)

Saludos, desde Baires, JuanC

Gracias Juanjo!

Gracias Juanjo. Escribí la macro cuando ya ni veía, efectivamente el contador de x no hace falta porque el bucle incrementa el valor automáticamente.
Probando con hacer trabajar el bucle hasta ActiveWorkbook.Sheets.Count - 1 no trabajó la macro.
Probando hasta ActiveWorkbook.Sheets.Count trabajó en las 4 primeras páginas (!?)

En este punto estoy con error de compilación en

Worksheets(x+1).Cells(6,"L").Value=Worksheets(x).Cells(4,"G").Value

pero no comprendo por qué hay error en esta expresión!

También probé a cambiar el bucle for x=1 to 30 pero tampoco funciona.

A alguien se le ocurre algo..?

Gracias!!

es obvio que si x es el número de hojas, el índice x+1 no existe... error...

Saludos, desde Baires, JuanC

Gracias Juan, ya tengo el contador con x=1 to activeworkbook.sheets.count-1 pero sigue dando error de fuera de rango.
Saludos.

es un buen momento para que depures paso a paso el código...
si no publicá el archivo...

Gracias por vuestras respuestas, ya está solucionado.
El problema era que no había considerado la posibilidad de que el campo estuviese vacío!