Añadir valores de celdas, acumulando valores, y pasar de la hoja1 a la hoja2 los resultados

Buenas noches, en el link

https://www.ayudaexcel.com/foro/macros-programacion-vba-10/necesito-copiar-importes-hoja1-si-cumplen-criterio-mediante-macros-gracias-27923/

Disculpen si no es la manera de mostrar la referencia, hay algo parecido, a lo que necesito resolver.

Se trata de que con una macro, pasar el resultado en valores de la hoja1 a la hoja2, al acumular los valores de las celdas en una columna, conforme a lo que muestro en el archivo adjunto.

Aquí no se trata de cumplir criterios en las celdas, pero algunas de ellas pueden estar vacías, o tener por valor cero.

Salvo estar equivocdo, en la macro utilizan la función SUMAPRODUCTO.

Gracias de antemano por la ayuda que me puedan brindar

Saludos, Jorge

Suma acumulativa de celdas..xls