Pasar datos de formulario a otra hoja

Hola
Primeramente agradecer a todos los que nos ayudan con códigos y sobre todo con acertadas respuestas ya que con esa ayuda puede hacer muchas mejoras a mi trabajo, pero ahora tengo una consulta ,

Tengo el siguiente código que me pasa a mi hoja dos los datos de mi formulario

Private Sub CommandButton1_Click(): On Error GoTo HayErrores
If Len(Trim(TextBox1)) = 0 Or _
Len(Trim(ComboBox1)) = 0 Or _
Len(Trim(ComboBox3)) = 0 Or _
Len(Trim(TextBox2)) = 0 Then
GoTo HayErrores ' sale de la sub rutina antes de guardar
End If
'En caso de error, que continúe
On Error Resume Next
por = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1
Hoja2.Cells(por, 1).Value = TextBox2.Text 'T/C
Hoja2.Cells(por, 2).Value = ComboBox1.Text 'FP
Hoja2.Cells(por, 3).Value = ComboBox2.Text 'CTE
Hoja2.Cells(por, 4).Value = CDate(TextBox1.Text) 'FECHA
Hoja2.Cells(por, 5).Value = ComboBox3.Text 'LA
Hoja2.Cells(por, 6).Value = TextBox3.Text 'COD
Hoja2.Cells(por, 7).Value = TextBox4.Text 'BOLETO
Hoja2.Cells(por, 8).Value = TextBox5.Text 'RUTA1
Hoja2.Cells(por, 9).Value = TextBox11.Text 'RUTA2
Hoja2.Cells(por, 10).Value = TextBox12.Text 'RUTA3
Hoja2.Cells(por, 11).Value = TextBox13.Text 'RUTA4
Hoja2.Cells(por, 12).Value = TextBox14.Text 'RUTA5
Hoja2.Cells(por, 13).Value = TextBox6.Text 'NOMBRE PAX
Hoja2.Cells(por, 19).Value = CDbl(TextBox7.Text) 'NETO BS
Hoja2.Cells(por, 20).Value = CDbl(TextBox8.Text) 'NETO $US
Hoja2.Cells(por, 14).Value = CDbl(TextBox15.Text) 'BS
Hoja2.Cells(por, 15).Value = CDbl(TextBox16.Text) '$US
Hoja2.Cells(por, 16).Value = ComboBox4.Text 'COU
Hoja2.Cells(por, 17).Value = TextBox9.Text 'SOL
Hoja2.Cells(por, 18).Value = TextBox10.Text 'OBS

ComboBox1.SetFocus
Exit Sub
HayErrores:
MsgBox "Revisar FECHA, TIPO DE CAMBIO , FORMA DE PAGO y LINEA AÉREA por favor.."
Exit Sub
End Sub

Por favor como seria para hacer lo mismo pero pasar a otra hoja de otro libro?

Gracias

JEsus

Pd. El otro libro cada hoja tiene nombre y esta alfabéticamente ordenadas