Excel - macros y editor de visual

hola cibernautas
tengo un problema con un formulario realizado en visual basic editor como traspaso los datos a otra hoja

Private Sub cmd_imprimir_Click()
Range("g5").Select
Selection.EntireRow.Insert
ComboBox1.Text = Empty
ComboBox3.Text = Empty
ComboBox2.Text = Empty
ListBox1 = Empty
ListBox2 = Empty
ListBox3 = Empty
TextBox1.Text = Empty
TextBox2.Text = Empty
TextBox3.Text = Empty
TextBox4.Text = Empty
TextBox5.Text = Empty
TextBox6.Text = Empty
TextBox7.Text = Empty
TextBox8.Text = Empty
TextBox9.Text = Empty
TextBox10.Text = Empty
TextBox11.Text = Empty
TextBox12.Text = Empty


UserForm1.Hide
Hoja2.Activate

End Sub

Private Sub ComboBox1_Click()
Hoja2.Range("g5").FormulaR1C1 = ComboBox1.Text
End Sub

Private Sub ComboBox2_Click()
Hoja2.Range("a10").FormulaR1C1 = ComboBox2.Text
End Sub

Private Sub ComboBox3_Click()
Hoja2.Range("z10").FormulaR1C1 = ComboBox3.Text
End Sub

Private Sub ListBox1_Change()
Hoja2.Range("y10").FormulaR1C1 = ListBox1.Text
End Sub

Private Sub ListBox2_Click()
Hoja2.Range("a12").FormulaR1C1 = ListBox2.Text
End Sub

Private Sub ListBox3_Click()
Hoja2.Range("n12").FormulaR1C1 = ListBox3.Text
End Sub

Private Sub TextBox1_Change()
Hoja2.Range("y12").FormulaR1C1 = TextBox1.Text
End Sub

Private Sub TextBox2_Change()
Hoja2.Range("C16").FormulaR1C1 = TextBox2.Text

End Sub

Private Sub TextBox3_Change()
Hoja2.Range("T18").FormulaR1C1 = TextBox3.Text
End Sub

Private Sub TextBox4_Change()
Hoja2.Range("AC16").FormulaR1C1 = TextBox4.Text
End Sub

Private Sub TextBox5_Change()
Hoja2.Range("I21").FormulaR1C1 = TextBox5.Text
End Sub

Private Sub TextBox6_Change()
Hoja2.Range("AB16").FormulaR1C1 = TextBox6.Text

End Sub

Private Sub TextBox7_Change()
Hoja2.Range("C26").FormulaR1C1 = TextBox7.Text
End Sub

Private Sub TextBox8_Change()
Hoja2.Range("A27").FormulaR1C1 = TextBox8.Text
End Sub

Private Sub TextBox9_Change()
Hoja2.Range("A28").FormulaR1C1 = TextBox9.Text
End Sub

Private Sub UserForm_Activate()
ComboBox1.AddItem "TRASPORTES ANTIYAL LTDA"
ComboBox1.AddItem "TRANSPORTE KODAMA LTDA"
ComboBox1.AddItem "TRANSPORTE MIURA LTDA"
ComboBox1.AddItem "TRANSPORTE HK LTDA"
ComboBox1.AddItem "KODAMA CONSTRUCCION LTDA"
ComboBox1.AddItem "CONSORCIO CONSTRUCCIONES KODAMA LTDA"
ComboBox1.AddItem "INGENIERIA Y CONSTRUCCION KODAMA LTDA"
ComboBox1.AddItem "INMOBILIARIA ANTIYAL LTDA"

ListBox1.AddItem "SANTIAGO"

ComboBox3.AddItem "PROVIDENCIA"
ComboBox3.AddItem "LAS CONDES"

ComboBox2.AddItem "AV.ELIODORO YAÑEZ 1198"
ComboBox2.AddItem "AV.COLON 4275 "

ListBox2.AddItem "2364411"
ListBox3.AddItem "2364840"

End Sub

macro...... ( es entrada)
Sub entrada()

Load UserForm1
UserForm1.Show

End Sub

Y donde te da el error?