Botón copiar datos de hoja a hoja excel

Hola, en una hoja tengo datos para facturar a clientes y necesito que esos datos se guarden en otra hoja mediante un botón. Yo pongo esto y no funciona:¿?
Private sub guardar_clik()
Dim SigFila As Long
Hoja2.select
SigFila = WorksheetFuction.countA(Range("A:A"))+1
Cells (sigFila, 1). =Value = Hoja3.Range("A5").Text
???????Cells (SigFila, 2). = Value = Hoja3.Range("B5").Tetx
Cells (SigFila, 3). = Value= Hoja3.Range("C5").Text
Cells (SigFila, 4). = Value= Hoja3.Range("D5").Text
Cells (SigFila, 5). = Value= Hoja3.Range("E5").Text
Hoja1.Sect
Al correrlo me sale un error, ERROR 424 en tiempo de ejecución se requiere objeto.
Alguien me puede ayudar...
Gracias