Como puedo guardar datos de factura en hoja base

tengo este código:

Private Sub CommandButton1_Click()

'rutina que graba la factura en hoja base

'se busca la primer fila libre en hoja

Fact filalibre = Sheets("BaseFact").Range("A65536").End(xlUp).Row + 1

'copiamos datos fijos ajustando nro col

Sheets("BaseFact").Cells(filalibre, 1) = ActiveSheet.Range("F9") 'NRO FACT

Sheets("BaseFact").Cells(filalibre, 2) = ActiveSheet.Range("F4") 'FECHA

Sheets("BaseFact").Cells(filalibre, 3) = ActiveSheet.Range("C9") 'NRO CTA

Sheets("BaseFact").Cells(filalibre, 4) = ActiveSheet.Range("C11") 'CLIENTE

Sheets("BaseFact").Cells(filalibre, 5) = ActiveSheet.Range("C12") 'NIF

Sheets("BaseFact").Cells(filalibre, 6) = ActiveSheet.Range("C13") 'DIRECCIÓN

Sheets("BaseFact").Cells(filalibre, 7) = ActiveSheet.Range("C14") 'CP

Sheets("BaseFact").Cells(filalibre, 8) = ActiveSheet.Range("C15") 'CIUDAD

Sheets("BaseFact").Cells(filalibre, 9) = ActiveSheet.Range("C16") 'PROVINCIA

Sheets("BaseFact").Cells(filalibre, 10) = ActiveSheet.Range("C17") 'TELÉFONO

y desearía guardar los demás datos de la factura en la hoja base como son:

CÓDIGO- PRODUCTO-KILOGRAMOS-PRECIO Y SUMA UNT

SUBTOTAL

IVA

TOTAL FACTURA

me podría is ayudar gracias