Como NO capturar datos en celdas vacías de una tabla de excel.

Hola Expertos, tengo un problema con una programación que estoy haciendo con excel y visual basic. Ejemplo

Tengo en excel una base de datos que se llena mediante un userform. Esta base de datos va de la columna A HASTA LA J (10 COLUMNAS).

Para llenar mi base de datos uso un userform con 10 textbox, los cuales llenan mi base en forma horizontal. Pero no siempre utilizo todos los textbox por ejemplo en la fila 1 tengo 5 datos capturados, en la fila 2 tengo 3 datos capturados, pero cuando en la fila 3 trato de meter por ejemplo 10 datos, me pone los primeros datos correctamente en la fila 3 pero el resto lo pone arriba!! Ya que la fila de arriba tiene datos vacíos.

este es el código que estoy usando

Sheets("Hoja1").Select
Range("a1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop 'bucle
If Len(TextBox1) > 0 Then ActiveCell = TextBox1: ActiveCell.Offset(1, 0).Select

Sheets("Hoja1").Select
Range("a2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop 'bucle
If Len(TextBox2) > 0 Then ActiveCell = TextBox2: ActiveCell.Offset(1, 0).Select

Sheets("Hoja1").Select
Range("a3").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop 'bucle
If Len(TextBox3) > 0 Then ActiveCell = TextBox3: ActiveCell.Offset(1, 0).Select

.............. Y así hasta el textbox 10

ESPERO ME PUEDAN AYUDAR.