Separar celdas con valor 0

Buenas a todos,
Mi problema no es con una formula en concreto, sino que quiero hacer una cosa y no veo la manera.
Tengo una tabla con 7 columnas y las filas varian. La tabla se rellena por unas formulas de SI que tiene cada celda. De esa manera la tabla se llena con 0 (ceros) o con valores. Los valores quedan muy dispersados, es decir que en una columna puedo tener 3 celdas con 0 luego 1 con un valor (D10:00-18:00), luego otros con 0 y vuelvo a tener valores.
Como los que tienen 0 no me interesan, quiero condensar todos los valores en el orden que aparecen en la tabla, en la parte superior de cada columna.
He probado con filtros, pero estos lo que me hacen es ocultar filas, entonces, si en la columna 1 fila 1 tengo un 0 pero en la columna 2 fila 1 un valor, se suprime toda la fila por culpa del primer filtro.

He intentado explicarme, pero no se si lo he conseguido.
Agradezco toda respuesta,
Atentamente
Julen108

Lo primero gracias por la rapidez,
Por lo que entiendo, en esa solución, si en una fila hay una valor que no sea 0 en una de las columnas, en las demas columnas habra ese 0 porque no se puede acultar toda la fila. De esa manera lo unico que consigo es una simplificacion de la tabla quitando las filas que contienen todo 0.
No sé si he entendido bien, pero si es asi, no me valdría, ya que lo que necesito es quitar todos los 0 de cada columna, es decir tratarlas como independientes. Lo unico que se me ocurre a estas alturas, es poner cada columna en filas diferentes para que no se molestene y luego con esos resultados crear una tabla, claro que nose si la tabla se actualizaria constantemente. Pero bueno eso ya se vera en el caso de que no consiga hacer lo intento explicar.
Atentamente.
Julen108

Buenas de nuevo,
Si efectivamente el orden si que tiene importancia en este caso, por lo que la primera opción la descarté.
Si no es mucha molestia, me gustaria conocer cual es esa rutina, para así quizas poder solucionar mi quebradero de cabeza de estos ultimos dias.
Un saludo
Julen108

Estoy en Euskadi (España) y por eso el horario tenemos tan diferente. Ayer por ejemplo me quede hasta las 4 de la mañana y por eso tube esa rapidez en respuesta.
Respecto a la nueva duda... no me interesa que las celdas se borren, tan solo es un reordenamiento, pero no alfabetico sino que es mantener el orden de cada columna.
Una pregunta me viene: ¿Esta tabla se actualizaria al instante o tendría que hacer algo para irlo actualizando?
Un saludo y muchisimas gracias por esa dedicacion,
Julen108

Buenas de nuevo,
He tardado unos días en responder porque no he tenido mucha oportunidad de hacer pruebas. Lo intente la primera vez y me daba error en la línea quinta.
"Cells(fila, col).Select"
Creo que ya lo pude solucionar, ya que ahora todo va a la perfección.
Muchas gracias por las dedicación y la ayuda que tan importante ha sido para mi trabajo.
Un saludo
Julen108