Dante Amor respondió:
Te anexo la macro Solamente cambia la siguiente información por tus datos: Set h1 = Sheets("Hoja1") 'hoja de informe Set h2 = Sheets("basedatos") 'hoja de base de dato col = "A" 'columna donde están los nombres de todas las personas La macroSub...