Excel - Copiar rango cada x Filas ???

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.

• FORO-VBA.rar(45,3 KB)

Sub COPIA()
Application.ScreenUpdating = False
r = 3
Do While r < 4998
Range(Cells(r, 3), Cells(r + 4, 9)).Copy
Cells(r + 9, 3).Select
ActiveSheet.Paste
r = r + 9
Loop
End Sub

ok
Gracias.