base de datos facturas

Hola Grupo !

Por favor , una duda. Hago las facturas en excel (en una hoja ,
"plantilla" ) , y luego, con el código adjunto (¡ que obtuve de aqui,
por supuesto) , me voy creando una base de datos ("resumen" , "libro
registro") de dichas facturas. El problema que tengo es que tengo que
desglosar, en el resumen, el cobro de dicha factura , que es
"dinámico" para cada factura (un solo importe total => varios
subtotales (cobros)) . ¿ como puedo "automatizar" algo este proceso ?
¿lleno columnas hacia la derecha hasta un maximo que yo establezca,
aunque algunas queden en blanco ? , ¿lleno filas hacia abajo ?
Muchas gracias por vuestra ayuda.


Sub Captura_datos_en_base_datos()
Sheets("factura").Select
fac_num = Range ("A1")
nombre = Range("A2")
direccion = Range("A3")
tel = Range("A4")
precio = Range("C6")
desglose1 = Range("D6")
desglose2 = Range("D7")
Sheets("bdfac").Select
Range("A1").Select
Cells(65536, ActiveCell.Column).Select 'SELECCIONA LA ULTIMA CELDA
DE LA
'COLUMNA
ActiveCell.End(xlUp).Activate 'SELECCIONA PRIMER VALOR ARRIBA
'ENCONTRADO , ASI 'ENCONTRAMOS LA ULTIMA CAPTURADA
ActiveCell.Offset(1, 0) = nombre 'escribimos nombre en la posicion
1
'abajo , actual
ActiveCell.Offset(1, 1) = direccion 'escribimos direccion en la
posicion
'1 abajo, 1 derecha
ActiveCell.Offset(1, 2) = tel 'escribimos tel en la posicion 1
abajo, 2
'derecha y seguimos llenando columnas

ActiveCell.Offset(1, 3) = precio
ActiveCell.Offset(1, 4) = desglose1
ActiveCell.Offset(1, 5) = desglose2
End Sub