Prueba esto, la propiedad offset y activecell
Código:
range("B3").select
'encuentra una celda vacia y la selecciona
ActiveCell.FormulaR1C1 = TextBox1
'corre una columna ( ahora la columna es C)
activecell.offset(0,1).select
ActiveCell.FormulaR1C1 = TextBox2
'corre una columna ( ahora la columna es D)
activecell.offset(0,1).select
ActiveCell.FormulaR1C1 = TextBox3
retrocede a b y baja una fila
activecell.offset(1,-3).select
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox1.SetFocus
End Sub
y si quieres seguir en la misma hoja y agregar datos al final de los ya existentes tendrias que insertar este codigo
Código:
sub busca_vacios
'que no pare hasta encontrar una celda vacia
range("B3").select
Do While Not IsEmpty(activecell.Offset(0, 0))
activecell.Offset(1, 0).Select
Loop
Pruebalo y ajustalo a tus necesidades