Bom dia Senhores!

Depois de quebrar a cabeça ontem o dia todo e a noite resolvi pedir ajuda!

Eu preciso enviar um farol automaticamente por e-mail para alguns gestores de Plano de ação.
Preciso copiar as informações da aba "Email" das células A1 até G16 e colar como figura (para não perder a formatação) no corpo do e-mail e enviar para os gestores dos Projetos.

Até consegui mais ou menos, mas no final da erro, ficva tudo desconfigurado e não cola como figura.

Vocês podem me ajudar?

Código que estou usando:

Sub Email()
Application.ScreenUpdating = False
Range("A1:G16").Copy Destination:=Planilha2.Range("A1:G16")
Planilha2.Select
ActiveWorkbook.EnvelopeVisible = True
    With ActiveSheet.MailEnvelope
        .Introduction = "Farol - Status de Indicadores"
        .Item.To = "elizeu.martins@imcopa.com.br"
        .Item.Subject = "Farol Status de Projetos"
        .Item.Send
    End With
ActiveCell.Activate
MsgBox "Sua mensagem foi enviada com sucesso!!", vbInformation, "Planejamento"
Application.ScreenUpdating = True
End Sub

Obrigado.