¿Ingresar datos de un textbox a una tabla ?.

Private Sub Btn_Agregar_Click()
Dim Fila As Long

Fila = 5
Do While Hoja1.Cells(Fila, 2).Value <> ""
Fila = Fila + 1
' MsgBox (Fila)
Loop
Hoja1.Cells(Fila, 2) = Frm_Contratos.TextBox1.Value
Hoja1.Cells(Fila, 3) = Frm_Contratos.TextBox2.Value
End Sub