Macro en excel p/copiar planilla

[CLARA09]

Hola; estoy necesitando realizar una macro en excel 2003 para copiar nº veces (cantidad maxima que me quepa en una hoja)una planilla de 4 columnas (a,b,c,d) y 19 filas, una debajo de la otra sin dejar lineas entre ellas. Espero alguien pueda darme una manito con esto.
gracias...............

[3pies]

Bienvenida al foro CLARA09.

Prueba este macro:

Código:

Sub Copiar_pegar()
'Para Office anterior a la versión 2007
'Ocultamos lo que hace el macro
Application.ScreenUpdating = False
'Copiamos el rango que nos interesa
Range("A1:D19").Select
Selection.Copy
For i = 1 To 3448 '65536 de filas dividido entre 19 = 3449,26. Al entero le restamos 1
    'lo pegamos donde nos interesa
    Selection.End(xlDown).Offset(1, 0).Select
    ActiveSheet.Paste
Next
'mostramos todo
Application.ScreenUpdating = True
End Sub

Para la versión de Office 2007, solo habría que cambiar el 3448 por 52630 (1000000 de filas, dividido entre 19 = 52631,57, y al entero, le restamos 1 = 52630).

[CLARA09]

No saleeeee...
Me aparece X 400
Y no se dnd esta el error....

[3pies]

Iniciado por CLARA09

Me aparece X 400

No entiendo que quieres decir.

El macro lo he probado y a mí me funciona correctamente.

[CLARA09]

Me sale que hay un error 1004 en este paso Selection.End(xlDown).Offset(1, 0).Select

[3pies]

Bájate este ejemplo que he colgado en megaupload (introduce los 4 caracteres que aparecen arriba a la derecha, y que se ven fatal, para poder descargar el fichero de excel).

Guarda el ficheo de excel en tu disco duro y ejecuta el macro que tiene: http://www.megaupload.com/?d=0B7SW8QI

[CLARA09]

Hola : No he podido bajar el archivo de la página.
Habrá otra solución?