Copiar contenido de combobox

Hola una consulta tengo el siguiente código el cual se llena con un formularoio y al darle aceptar , sera que se puede ir a la hoja elegida del combobox, llenar con los datos del formulario a la hoja elegida, y a la vez a la hoja2 ? Ingrese el código siguiente pero no funciona como esperaba, ayuda por favor gracias

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
hoja_elegida = ComboBox2.List(ComboBox2.ListIndex)
'vamos a la hoja elegida y copiar del formulario
If hoja_elegida > "M" Then Workbooks(libro2).Activate
ActiveWorkbook.Sheets(hoja_elegida).Select
y = hoja_elegida.Range("A3" & Rows.Count).End(xlUp).Row + 1
hoja_elegida.Cells(y, 1).Value = CDate(TextBox1.Text) 'FECHA
hoja_elegida.Cells(y, 2).Value = TextBox3.Text 'COD
hoja_elegida.Cells(y, 3).Value = ComboBox3.Text 'LA
hoja_elegida.Cells(y, 4).Value = TextBox4.Text 'BOLETO
hoja_elegida.Cells(y, 5).Value = TextBox5.Text 'RUTA1
hoja_elegida.Cells(y, 6).Value = TextBox11.Text 'RUTA2
hoja_elegida.Cells(y, 7).Value = TextBox12.Text 'RUTA3
hoja_elegida.Cells(y, 8).Value = TextBox13.Text 'RUTA4
hoja_elegida.Cells(y, 9).Value = TextBox14.Text 'RUTA5
hoja_elegida.Cells(y, 10).Value = TextBox6.Text 'NOMBRE PAX
hoja_elegida.Cells(y, 11).Value = CDbl(TextBox15.Text) 'BS
hoja_elegida.Cells(y, 12).Value = CDbl(TextBox16.Text) '$US
End If
'leemos lo que nos devuelven los combobox
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 = ""
ComboBox2 = ""
ComboBox3 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
TextBox14 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox15 = ""
TextBox16 = ""
ComboBox4 = ""
TextBox9 = ""
TextBox10 = ""
ComboBox1.SetFocus
Exit Sub
HayErrores:
MsgBox "Revisar FECHA, TIPO DE CAMBIO , FORMA DE PAGO y LINEA AEREA por favor.."
Exit Sub
End Sub

Jesús Maretinez