Visual Basic - formulario - Visual Basic - Ayuda por favor

Hola

Quiero crear un formulario que me escriba de la columna B a la I de excel, pero no consigo que me pase a la fila de abajo, el código que escribi es este:

Private Sub Label1_Click()

End Sub

Private Sub DatosAgregar_Click()
Dim iFila As Long
Dim ws As Worksheet
Set ws = Worksheets(1)

'Econtrar la siguiente fila vacia
iFila = ws.Cells(Rows.Count, 1).End(x1Up).Offset(1, 0).Row

'Copiar los datos a la base de datos
ws.Cells(iFila, 2).Value = Me.DatosB.Value
ws.Cells(iFila, 2).Value = Me.DatosC.Value
ws.Cells(iFila, 2).Value = Me.DatosD.Value
ws.Cells(iFila, 2).Value = Me.DatosE.Value
ws.Cells(iFila, 2).Value = Me.DatosF.Value
ws.Cells(iFila, 2).Value = Me.DatosG.Value
ws.Cells(iFila, 2).Value = Me.DatosH.Value
ws.Cells(iFila, 2).Value = Me.DatosI.Value

'Limpiar el formulario
Me.DatosB.Value = ""
Me.DatosC.Value = ""
Me.DatosD.Value = ""
Me.DatosE.Value = ""
Me.DatosF.Value = ""
Me.DatosG.Value = ""
Me.DatosH.Value = ""
Me.DatosI.Value = ""

End Sub

Private Sub nombre_Change()

End Sub

Private Sub siguiente_linea_Change()

End Sub

Gracias por leerme
Azucena

Una de las mejores maneras es que abras un excel y cominza a grabar la macro haz lo que necesites y mira el codigo .. con eso saberas como hacer a manera de instrucciones..... podrias valirar si la celda esta vacia y comenzar a escribir ahi... espero te ayude...