Completar datos con fila superior

Buenas tardes, Amigos.

para pedirles ayuda, sucede que tengo una Hoja("Hoja1") en donde tengo datos que paso de otra hoja, sin embargo quedan espacios vacíos,estos espacios vaciós quiero completar con los que esta en la parte superior. tal como esta en la hoja "ejemplo", me gustaria adpatar el código (Macro) que adjunté en el módulo 1, que sirve para borrar las filas que al pasar a esta hoja tiene como valor cero, de manera que cada vez que paso datos de la otra hoja se  borre las filas con valor cero y se complete los espacios en blanco.

Muchas Gracias , por su atención

Saludos,

Celim

completardatos.xlsm