Como no insertar textbox vacíos en una BD

Hola de nuevo
El código que me enviaste me resulto de gran utilidad solo que estaba pensando si existe la posibilidad de agregarle un else (lo cual no eh logrado) por que al no cumplirse el if no considera las columnas que se debe mover para insertar el valor del siguiente textbox para que el valor quede en su celda respectiva, es decir que si esta vacío el textbox no inserte el espacio vacío (solucionado con el código que me dijiste) pero si que recorra las celdas respectivas
Código anterior:
ActiveCell = TextBox6
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox7
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox8
ActiveCell.Offset(0, 1).Select
ActiveCell = TextBox9
ActiveCell.Offset(1, -3).Select
ActiveCell = TextBox10
Código que me dijiste
If Len(TextBox6) > 0 Then ActiveCell = TextBox6: ActiveCell.Offset(0, 1).Select
If Len(TextBox7) > 0 Then ActiveCell = TextBox7: ActiveCell.Offset(0, 1).Select
If Len(TextBox8) > 0 Then ActiveCell = TextBox8: ActiveCell.Offset(0, 1).Select
If Len(TextBox9) > 0 Then ActiveCell = TextBox9: ActiveCell.Offset(1, -3).Select
If Len(TextBox10) > 0 Then ActiveCell = TextBox10