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).