Отправить диапазон исправлений по электронной почте через Outlook из макроса Excel

Question

У меня возникла проблема с тем, чтобы вставить в тело электронного письма созданный диапазон файла excel, в котором я запускаю свой макрос. диапазон в теле письма, он возвращает true в теле письма, не могли бы вы мне помочь, пожалуйста

Option Explicit

Sub Send_Email_Excel ()

Dim varBody As String
Dim outlookApp As Object
Dim outlookMail As Object


Set outlookApp = CreateObject("Outlook.Application")
Set outlookMail = outlookApp.CreateItem(0)


varBody = Worksheets("EMAIL").Range("A1:G25").Copy
'varBody = ActiveSheet.Range("A1").Value


With outlookMail
    .To = Sheets("Email").Range("B7").Value
    .CC = Sheets("Email").Range("B8").Value
    .BCC = " "
    .Subject = Sheets("Email").Range("B9").Value
    .BodyFormat = 1
    .HTMLBody = varBody
    .Importance = 1
    .ReadReceiptRequested = False
    .Display
End With

Set outlookMail = Nothing
Set outlookApp = Nothing

End Sub