Visialisar datos en listbox de una hoja e imprimir

Hola: Estoy trabajando con un sistema para caja gracias a sus valisosas ayudas en el foro, y bueno vi en su foro un ejemplo de visualizar datos en un listbox , lo baje y quise modificarlo para que yo puede usarlo según mi necesidad, pero mis conocimientos son muy bajos con respecto a la programación, quisiera que por favor me ayuden con los códigos correspondientes, adjunto el archivo de mi consulta la clave es "JMP" para poder ingresar la fecha y pueda visualizar en el listobx los datos que quisiera se visualizen y después imprimirlos, y un detalle mas en la parte de abajo de mi formulario tengo un resumen de ventas, se pude hacer en los textbox la siguiente formula: - que sume el total de los textbox? Que seria =suma( ) esta formla todos la conocen - que sume según condición o sea todos con código "p" por ejemplo =sumar.si("datos"|"P"|"datos con monto") En el formulario están estos campos. Gracias por su atención, cordiales saludos
Jesús

PD. Por favor si me indican su correo les paso el archivo