¿Cómo hacer una Macro para buscar valores en un rango?

Tengo la siguiente situación:

Una tabla dinámica que contiene información por bloques de 10 días, hay algunos espacios en blanco, ya que en ese día no tuvo información.

Quisiera hacer una macro que recorra el rango (O7:O16) Y requiero listar los valores sin los espacio, es decir, en la columna "AB", lista que el primer valor es 25, el segundo es 20 el tercero es 16, cuarto18, así sucesivamente. Para luego pasar a la columna P y hacer lo mismo.