Copiar número determinado de columnas a otro libro

Buenas tardes GRANPEKE,
Fíjate que yo estoy aprendiendo a hacer macros de 2 maneras:
1 leyendo un folleto de macros
2 tomando ejemplo de otras macros al ver el funcionamiento.
Pues tengo una macro que hace lo siguiente:
Toma todos los valores que se en cuentran en una hoja y los copia a otro libro que se llama Historial, esto lo hace a diario, llevando un registro por día de las transacciones efectuadas, pues la tengo de tal manera que me pasa toda la linea, pero lo que deseo es pasar solo 7 columnas de la A a la G, te pregunto ¿cómo debo modificar la macro para que pase las filas que contienen datos pero solo las 7 columnas?,
te copio la macro para que me indiques, como modificarla, y de verdad te agradecería que me dieras una pequeña explicación para poder seguir pescando en esto de las macros.
Sub Historial()
Dim uf As Long, uf1 As Long, filaini As Long
Ruta = "E:\Trabajos" 'Aqui indicas la unidad y el nombre de la carpeta donde estara el archivo Historial.xls
LIBRO = "Historial.xls" 'Aqui indique el nombre del archivo destino
ncol = 7'Numero de columnas de la BD.
filaini = 9
On Error Resume Next
Workbooks.Open Filename:=Ruta & "\" & LIBRO
Sheets("HojaHistorial").Activate
uf1 = Range("A" & Cells.Rows.Count).End(xlUp).Row
Windows("Captura_de_datos_1 (1).xls").Activate Sheets("Registro").Activate
uf = Range("A" & Cells.Rows.Count).End(xlUp).Row
Range(filaini & ":" & uf).Copy Workbooks("Historial.xls").Sheets("HojaHistorial").Range("A" & uf1 + 1)
'Range(Cells(9, 1), Cells(uf, ncol)).Copy Workbooks("Historial.xls").Sheets("HojaHistorial").Range("A" & uf1 + 1)
Windows("Historial.xls").Activate
MsgBox "Se han transferido los datos"
End Sub
De todo corazón José.