Macro para obtener kardex valorizado

Estimados amigos muy buenos días, quisiera que me ayuden a obtener el contenido de la hoja deseado el ejemplo que adjunto obtiene la hoja valorizado pero yo lo quiero de la otra forma. Anticipadamente muchas gracias por su gentil ayuda.

Nota: No soy el autor de los códigos del archivo yo lo encontré buscando en internet y solo pretendo modificarlo a mi manera para uso personal. Descargar archivo