Imprimir varias veces un rango con un botón

Buenas tardes, mi duda es que tengo una Base de Datos y un formulario hecho en otra hoja de calculo, ahi puedo seleccionar un número de referencia y segun eso aparecen los datos en el formulario, quiero que se guarde una imagen por cada Número de referencia que tenga la Base de Datos, que son unas 1000 aproximadamente, tengo ya hcha una macro pero solo guarda una a la vez, lo que quisiera es que tenga un botón que al seleccionarlo guarde las aprox 1000 imagenes de todos los "num. de referencia" con sus respectivos datos y la imagen ActiveX que apareciera, en el que he echo lo hace 1 a la vez, pero lo hace en mala calidad, eso tambien es un problema.

BD-Inmuebles.zip