Copiar rango cada x Filas ???

[eugeniocol]

Hola buenas.

Necesitaria una macro que copiara un rango de celdas que contiene formula cada 5 Filas hasta la fila 4998.

Seria copiar C3:I7 con la funcion =

Empezando en Fila 3 y terminaria en Fila 4998

Se repetiria cada 5 filas.

Un Saludo.

[Sergio]

Hola Eugenio,

¿Qué pasos has seguido hasta ahora para intentar conseguirlo?

Un saludo,

[eugeniocol]

Con la grabadora

Pero son demasiadas filas.

Sub Macro1()

    Range("C3:I7").Select
    Selection.Copy
    Range("C12").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Copy
    Range("C21").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    
End Sub

Hace tiempo que no entro en el foro y no veo la opcion de subir libro.

Un Saludo.

[Antoni]

Sub CopiarMúltiple()
Application.ScreenUpdating = False
Range("C3:I7").Copy
For x = 12 To 4998 Step 9
   Range("C" & x).PasteSpecial xlPasteAll
Next
Application.CutCopyMode = False
End Sub