Avanzar celdas

He tratado de hacer la siguiente macro, que que analiza la celda anterior y de acuerdo a su valor da un resultado, el caso es que como esta solo analiza la primera celda, pero necesito que automáticamente baje a la celda siguiente y repita el proceso sucesivamente hasta que se encuentre con una celda vacía.
Gracias por su tiempo