Este fórum está sendo desativado

[engrocha]

Bom dia a todos!
Utilizando um excelente código criado aqui mesmo no fórum pelo Jimmy, estou tentando adequar o mesmo a minha necessidade atual. Gostaria que o Range (B2:R77) fosse colado no e-mail com figura e não como texto.

Tentei inserir um "Pictures.Paste.Select" mas não obtive êxito.

Grato!
Rocha

Sub Email()
Dim OutlookApp As Object
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
OutlookMail.To = Range("D80").Value
OutlookMail.cc = Range("D81").Value
OutlookMail.Subject = Range("D82").Value
Range("B2:R77").Copy
OutlookMail.display 'para visualizar e enviar manual, ou OutlookMail.send para enviar direto
Application.Wait (Now + TimeValue("00:00:02"))
Call SendKeys("^v")
End Sub