Hola tengo el siguiente código:
Private Sub CommandButton1_Click():
x = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1
Hoja2.Cells(x, 1).Value = ComboBox1.Text 'FP
Hoja2.Cells(x, 2).Value = ComboBox2.Text 'CTE
Hoja2.Cells(x, 3).Value = CDate(TextBox1.Text) 'FECHA
Hoja2.Cells(x, 4).Value = ComboBox3.Text 'LA Hoja2.Cells(x, 5).Value = TextBox3.Text 'COD Hoja2.Cells(x, 6).Value = TextBox4.Text 'BOLETO Hoja2.Cells(x, 7).Value = TextBox5.Text 'RUTA1
Hoja2.Cells(x, 8).Value = TextBox11.Text 'RUTA2 Seguir leyendo... sobre Insertar fila antes de copiar datos