Macro autofilter

En un libro tengo las siguientes hojas entre otras:
1) "Base de datos" (con 43 columnas) Se trata de pisos para vender.
2) "Impresión de listados" (con la función BuscarV) y tres cuadros de lista
para elegir campos de las 43 columnas de la "Base de datos" antes
mencionada.
3) "Plantilla" (extrae datos con BuscarV de la "Base de datos")<> (por
cada referencia un DIN A4, con foto)
Bien, ahora voy a plantear lo que necesito y agradezco a cualquier maestro
del foro que me pueda ayudar.
1) En esta hoja necesitaría tene en una columna nueva, p.e. "foto", una
forma de llamar a la foto correspondiente a cada referencia de piso, ó si es
posible, ¿la propia foto?.
2) En esta hoja me gustaria tener un boton al que asignaria la macro que
basada en el autofiltro de la hoja "Base de datos", y en razón de los
criterios de filtrado que he elegido en los cuadros de lista, me
proporcione, copiando la columna en cuyo rango están las referencias de los
pisos y pegando ese rango en esta hoja, el listado que se pretende,
teneiendo en cuenta que al pegar el rango actuaria la función BuscarV antes
de imprimir finalmente la hoja.
3) Por último, en la hoja "Plantilla", tengo el rango H17:L34 destinado a
pegar la foto que corresponda a la referencia del piso solicitado. Agradezco
al maestro Héctor Miguel la ayuda que me proporcionó en su día (10-06-04) y
de hecho la estoy aprovechando actualmente, pero como no le dí la suficiente
explicación de lo que quería hacer, no me funciona demasiado práctica
aquella solución. Estoy usando ahora esta macro:
Sub Macrofotos2()
'
' Macrofotos2 Macro
' Macro grabada el 19/06/2004 por José R.
'
Range("H17").Select
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Isabel\Escritorio\Pepe Frasquet\Fichas de
pisos\5002.JPG" _
).Select
'Me gustaría cambiar a una carpeta en Mis documentos que se llame "Fotos
de pisos" y se llamarían por la referencia, p.ej. 5002.JPG
Range("a3").Select
End Sub

Bueno es todo. (ya es bastante...) Agradezco infinitamente la ayuda.
Gracias. Saludos
Pepe Frasquet