Para Dam pasar datos de textbox a celda

Buen dia en un formulario capturo datos y los guardo en la hoja 2 y esos mismos datos quiero que se pasen a la hoja 3 para que porque en la hoja 3 tengo un formato prediseñado para impresión que código usar

Private Sub CommandButton1_Click()

Application.ScreenUpdating = False
Sheets("base_prestamo").Activate

Range("A2").Activate

Do While Not IsEmpty(ActiveCell)

ActiveCell.Offset(1, 0).Activate

Loop

ActiveCell = TextBox1

ActiveCell.Offset(0, 1) = Time

ActiveCell.Offset(0, 2) = TextBox2

ActiveCell.Offset(0, 3) = TextBox3

ActiveCell.Offset(0, 4) = TextBox4

If OptionButton1 Then

ActiveCell.Offset(0, 5) = OptionButton1.Caption

Else

ActiveCell.Offset(0, 5) = OptionButton2.Caption

End If
Sheets("hoja1").Select (DE AQUÍ HACIA ABAJO NO SE SI ESTA BIEN)

Range("g4").Value = TextBox1

Range("c8").Value = TextBox4

Range("f11").Value = TextBox2

Range("f13").Value = TextBox3