Problema con una macro

[Crashman]

Prueba esto, la propiedad offset y activecell

Código:

'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
'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