Mover datos a la Izquierda (instrucción VBA)

Hola a todos, necesito de su ayuda para terminar un macro; la instrucción que requiero es

de una serie de números que hay en la columna B algunos empiezan con "900" esos los quiero desplazara la izquierda y el resto subirlos un renglón para poder tener todo alineado.

Gracias, Saludos.