Cómo hago para repetir una serie 90 veces????

Sub Copiar90Veces()

Application.ScreenUpdating = False

Dim n As Byte
ActiveSheet.Range("1:40").Copy

For n = 1 To 90
ActiveSheet.Cells(n * 40 + 1, 1).Select
ActiveSheet.Paste
Next n

Application.ScreenUpdating = True
Application.CutCopyMode = False

End Sub

Esto iría en un módulo creado por ti (no en ThisWorkbook ni en ninguno de los de las hojas).
Un saludo.


Fernando Arroyo
MS MVP - Excel

"cg" escribió en el mensaje news:07db01c36576$02053d70$
Hola tengo una serie de 40 filas con nombre de 40
Personas y atributos de dichas personasen las columnas
(Edad, sexo, etc.). Tengo que copiar dicha serie 90 veces
para abajo, es decir de la fila 41 a la 80 yttiene que
estar copiada la segunda serie, de la 81 a la 120 la
tercera, etc.
Cómo hago esto????????