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

Hoja2.Cells(x, 9).Value = TextBox12.Text

Hoja2.Cells(x, 12).Value = CDate(TextBox19.Text) 'FECHA DE SALIDA

Hoja2.Cells(x, 13).Value = TextBox6.Text 'NOMBRE PAX

Hoja2.Cells(x, 14).Value = CDbl(TextBox7.Text) 'NETO BS

Hoja2.Cells(x, 15).Value = CDbl(TextBox8.Text) 'NETO $US

ComboBox1 = ""

ComboBox2 = ""

ComboBox3 = ""

TextBox3 = ""

TextBox4 = ""

End Sub

Este codigo lo uso para copiar los datos demi formulario a la hoja2, solo que en la hoja2 hay un cuadro global de ventas diarias, lo que quiero es que antes de copiar los datos en laultima fila ocupada inserte una fila y despues vuelva a buscar la ultima fila ocupada y recien copie los datos del formulario, esto es debido a que en la hoja2 hay una tabla que arrastra las formulas qeu necesito.

Gracias

Jesús