Macro, en excel, para enviar email

Hola y saludos.

busco un Macro que me permita copiar la celda A2 de una hoja1 en excel y pegarlo B4 de la hoja2 del mismo libreo excel; después debe copiarse un rango de celdas de B4:G4 de la Hoja2 y enviarse por correo Outlook. Al final la hoja1 debe quedar activa.

sera posible que me ayuden?

Gracias de ante mano.

Jairo