Este fórum está sendo desativado

[APTLima]

Boa tarde!
Tenho uma planilha com algumas informações,


Eu preciso enviar esses dados no corpo do e-mail utilizando o Outlook, o e-mail deve ficar assim:


E pelo código que encontrei não consigo selecionar o intervalo dessas células com a formatação acima

Sub EnviarEmail()
Dim OutApp As Outlook.Application
Dim OutMail As Outlook.MailItem

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
Application.DisplayAlerts = False

With OutMail
.To = Range("C2").Value
.CC = Range("C4").Value
.Subject = Range("C6").Value
.HTMLBody = Range("B10:K100").Value
.Attachments.Add ActiveWorkbook.FullName
.Send
End With

Application.DisplayAlerts = True

Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Poderiam me ajudar?
Obrigada!

[babdallas]

Você quer enviar uma imagem ou quer os dados em si?

[APTLima]

Eu preciso dos dados, pois serão usados para imputar em um sistema, e seria interessante copiar e colar.

Obrigada!