Macro para copiar datos filtrados y enviarlos en un mail

Buenas tardes, tengo un archivo con 22 columnas y más de 2000 filas, pero al realizar un filtro me quedan como 500, estas celdas que cumplen el filtro quisiera enviarlas en un mail por medio de outlook, (no como archivos adjuntos) espero contar con su ayuda, gracias.