Problema registro de facturas

[crltrt]

Hola tengo un problema estoy haciendo un macro para registrar las facturas, el problema es que todavia no lo tengo muy claro con los macros el tema es asi, tengo una factura que despues de imprimir tengo que generar un macro que me copie la informacion a otra hoja. el tema es que tengo varios productos para una sola factura entonces pasa que en una sola filas no queda todos los items sino que queda en maximo 10 filas entonces pasa 2 cosas si grabo el macro no se luego como hacer para que los nuevos datos los grabe abajo de los antiguos si alguien tiene alguna idea gracias dejo lo que tengo grabado en el macro

Sub Macro4()

'

' Macro4 Macro

'

'

ActiveCell.FormulaR1C1 = "=TODAY()"

Range("A3").Select

Sheets("Facturas").Select

Range("C8:J8").Select

Selection.Copy

Sheets("Hoja1").Select

Range("B2").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("Facturas").Select

Range("H11:J11").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Hoja1").Select

Range("C2").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("Facturas").Select

Range("B15:B26").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Hoja1").Select

Range("D2:D13").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("Facturas").Select

Range("C15:F26").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Hoja1").Select

Range("E2:E13").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("Facturas").Select

Range("H15:H26").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Hoja1").Select

Range("F2:F13").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("Facturas").Select

Range("J27").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Hoja1").Select

Range("G2").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("Facturas").Select

ActiveWindow.SmallScroll Down:=6

Range("J31").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Hoja1").Select

Range("H2").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Sheets("Facturas").Select

ActiveWindow.SmallScroll Down:=3

Range("J33").Select

Application.CutCopyMode = False

Selection.Copy

Sheets("Hoja1").Select

Range("I2").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

End Sub

[torquemada]

Hola crltrt.

MIra si te sirve parte de esta macro:

https://www.ayudaexcel.com/foro/macros-programacion-vba-10/que-hacer-para-que-macro-escriba-siguiente-linea-vacia-30520/

Saludos.