Macro para enviar correos con una tabla de datos

Resulta que he hecho una macro para enviar los datos de una tabla que están en la hoja 2 (VISADOS) por email (CORREOS). Todo va correcto pero me gustaría que al filtrar los datos de la tabla que tengo (VISADOS) por responsable esos datos se trasladaran a la hoja 1 (MACRO), que es lo que hace ahora pero con un problema. Si yo en la hoja de VISADOS filtro por Miriam, a la hoja 1 se me trasladan los datos de Manuel y Miriam. Yo lo que quiero es que si filtro por Miriam se me trasladen los datos de Miriam directamente a la línea 23 de la hoja 1.

Muchas gracias,

Un saludo.

Adjunto macro: https://drive.google.com/file/d/189YjC8NUgu7Y6Z_MgNjMO9PsBgLEC8Zm/view?usp=sharing