Bucle repetitivo do while

A ver si me explico bien.

Tengo una hoja protegida con un rango de fila desbloqueada las celdas donde van los datos. Con el siguiente código quiero que a partir de la celda seleccionada haga una serie de números ( ejemplo desde el 101 al 150) hasta completar el rango de fila.

a = txtCelda.Value - 1
b = Range("J1").Value - 1
For i = a To b
ActiveCell.Offset(0, i - a).Value = i + 1
Next i
Selection.End(xlToRight).Select
Selection.Offset(0, 1).Select
Call ContinuarClave

__________________ContinuarClave

a = Range("G1").Value - 1
b = Range("J1").Value - 1
Do While ActiveCell.Value = ""
For i = a To b
ActiveCell.Offset(0, i - a).Value = i + 1
Next i
Selection.End(xlToRight).Select
Selection.Offset(0, 1).Select
Loop

Lo hago asi porque no siempre empezará por el numero inicial. Me llegó a funcionar bien pero no se que pasó que ahora se me queda colgado cuando lo ejecuto.

Gracias.