Como hago un botón guardar en excel

"quiero que haga esto los, datos que tengo en una hoja1 me lo guarde a otra hoja2"

tengo o este código,me captura los datos pero el presionar el botón me lo ubica en la parte de bajo de excel.

Private Sub CommandButton1_Click()

Dim linea_libre As Long

Application.ScreenUpdating = False

Sheets("FACTURACIONES").Select
linea_libre = WorksheetFunction.CountA(Range("A:A")) + 1

cells(linea_libre, 1).Value = Range("f8").Value

cells(linea_libre, 2).Value = Range("C8").Value

cells(linea_libre, 3).Value = Range("C9").Value
End Sub