Al encontrar la opción en la columna “B”, pegar un dato en la última celda vacía de la derecha.

hola a todos… solicito su invaluable apoyo… tengo una macro en USERFORM que a través del combobox3 selecciono una opción y con el botón buscar (en la columna B) al encontrarla me retorna 4 datos (un texto y 3 numéricos), uno en cada textbox. En el quinto TxBx introduzco un número que al presionar el botón insertar, mi petición es que este dato debe ser pegado en la última celda vacía de esta línea hacia la derecha… le anexo la macro. De antemano, muchas gracias por su atención.

Private Sub CommandButton4_Click() 'PARA INTRODUCIR DATOS NUEVOS

Application.ScreenUpdating = False

'If ComboBox1 = 2 Then

Hoja3.Unprotect

Sheets("hoja3").Select

ComboBox3.Value = ComboBox3

ActiveCell.Offset(0, 1).Value = TextBox5  

ActiveCell.Offset(0, 2).Value = TextBox6  

ActiveCell.Offset(0, 3).Value = TextBox8      

ActiveCell.Offset(0, 4).Value = TextBox9      ‘=dividir (TxBx8 / TxBx10)*100

 ActiveCell.Offset(0, uCell).Value = TextBox10    'A LA ultima celda vacía de a derecha

Application.ScreenUpdating = True

Hoja3.Protect End Sub