Visual Basic para Aplicaciones - Problema con una Macro

Hola!

Tengo un problema con una macro que no me funciona, espero que alguien me pueda ayudar :)
Antes que nada quiero decir, que llevo como una hora "aprendiendo" visual basic, hasta ahora lo desconocía por completo, así que perdón por ineptitud.

Lo que necesito hacer es que el programa me copie lo que hay en una celda x, hasta la siguiente celda escrita, para ello he conseguido que me lo haga una vez, con el código de más abajo, pero soy incapaz que este procedimiento me lo repita más de una vez.

Si alguien me puede ayudar se lo agradecería mucho :)
Gracias por la atención!!


Sub copiarcells()

For i=1 to 6

range("E5").select
activecell.copy
selection.end(xldown).select
activesheet.paste
application.cutcopymode=false
selection.end(xldown).select

next

end sub

hay algo que no me gusta en ese código... pero bue...
para repetir agregale otro bucle For...Next

Sub copiarcells() For j=1 to n_repeticiones For i=1 to 6 range("E5").select activecell.copy selection.end(xldown).select activesheet.paste application.cutcopymode=false selection.end(xldown).select next next j end sub

también podrías hacer un bucle en otro procedimiento...

Sub main() For j=1 to n_repeticiones Call copiarcells() next j end sub

Saludos, desde Baires, JuanC