Pasar Datos de facturas Excel a libro base datos

Perdona todo lo anteriormente explicado esta bien lo que si no se en que variaría este código sin el pegado especial, es decir si el rago G1:G8 que es el que tengo que pegar fuera A1:H1
Saludos y perdona mi ignorancia
Sub copia()
Dim f As Long
Range("G1:G8").Select
Selection.Copy
Windows("base de datos").Activate
f = Application.WorksheetFunction.CountA(Range("A:A")) + 1
Range("A" & f).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Application.CutCopyMode = False
Range("A" & f).Select
Windows("base de datos").Activate
End Sub