Formulario

Calvuch
Muchas gracias por tu colaboración te estoy altamente agradecido por tu ayuda, pero necesito que me sigas ayudando resulta que ahora los datos se mantienen en una misma fila y no baja a la siguiente celda probé colocando un acumulador a la fila pero no funcionó anlizalo y mira que estoy dejando de hacer por´fa
Dim iFila As Long
Dim ws As Worksheet
Dim Fecha As Date
Dim Cantidad, Fila As Integer
Set ws = Worksheets(ActiveSheet.Index)
Fecha = TextBoxFecha
Cantidad = TextBoxCantidad
'encuenta la siguiente fila vacía
iFila = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Rem asignaciones de datos
ws.Cells(iFila, 2).Value = Fecha
ws.Cells(iFila, 3).Value = Cantidad
'limpa el formulario
Me.TextBoxFecha.Value = ""
Me.TextBoxCantidad.Value = ""
Me.TextBoxFecha.SetFocus
ws.Activate
Jhonpe