Macro en Excel para mover a la derecha pero "respetando" las celdas bloqueadas

Estimados, tengo este macro (cortesía de luismondelo de TodoExpertos.com)

Sub auto_open()
Application.OnKey "~", "prueba"
End Sub
Sub prueba()
ActiveCell.Offset(0, 1).Select
End Sub

El tema es que tengo celdas bloqueadas y tengo destildado la opción de "seleccionar celdas bloqueadas", o sea, si yo me muevo con la flecha del teclado, me saltea las celdas bloqueadas, pero si yo ingreso los datos con una lectora de códigos, o le doy "ENTER" (llenando los datos a mano), no me respeta las celdas bloqueadas.

Aparte, la idea es que al finalizar la líneas, como el resto de las celdas están bloqueadas, pase "automáticamente" a la de abajo.

Me pueden dar una mano?

Gracias!