Copiar datos de hoja a hoja excel

Hola Experto:
Tengo una hoja de excel (2007) con diversos datos y necesito que estos datos que pertenesen a facturacion se inserten en otra hoja en forma lineal, bueno puse un boton para que con un clik se pasen de hoja1 a hoja2 pero no me funciona bien porque los inserta en la misma hoja1 este es el codigo:
Private Sub Guardar_Click()
Dim SigFila As Long
SigFila = WorksheetFunction.CountA(Range("A:A")) + 1
ActiveWorkbook.Sheets(2).Activate 'selecciona la Hoja 1
Cells(SigFila, 1).Value = Hoja1.Range("M5").Text
Cells(SigFila, 2).Value = Hoja1.Range("G7")
Cells(SigFila, 3).Value = Hoja1.Range("B9").Text
Cells(SigFila, 4).Value = Hoja1.Range("C15").Text
Cells(SigFila, 5).Value = Hoja1.Range("H26").Text
Hoja1.Select
End Sub 
Me puedes decir donde esta mi error.
Gracias y saludos...

Añade tu respuesta

Haz clic para o