Макрос для копирования и вставки в тело письма

Question

Я пытаюсь настроить макрос, который копирует определенные ячейки из Excel и вставляет их в тело нового электронного письма с исходным форматированием, но я либо получу ошибку во время выполнения, либо тело отобразится как «-1».

Попытка изменить тело на activesheet.Range («A1: C186»). Выберите, но это создает «-1» в теле письма.Если я оставляю тело как Range («A1: C186»), заполняется ошибка времени выполнения «440»: объект не поддерживает этот метод.

Dim myToAdd As String
Dim Group As Range 
Set Group = Range("B11")



    If Group = "Group1" Then
        myToAdd = "matt@email.com:"
    ElseIf Group = "Group2" Then
        myToAdd = "matt2@email.com:"
    ElseIf Group = "Group3" Then
        myToAdd = "matt3@email.com;" & " " & "matt4@email.com:"
    Else

    End If

    With CreateObject("Outlook.Application").createitem(0) '0 will create a new email item
        .To = myToAdd
        .Subject = Range("B7") & " - " & Range("B8")
        .Body = Range("A1:C186")
        .Display
    End With

Диапазон тела письма должен вставлять ячейки во вновь созданное тело.Надеемся вставить и "сохранить исходное форматирование".