Как скопировать диапазон ячеек в Excel, который содержит «таблицу» и добавить его в тело Outlook через VBA

Question

Я пытаюсь скопировать диапазон ячеек, которые должны выступать в качестве таблицы со словами в Excel, которые будут помещены в .outlookbody через VBA.

Это диапазон, который я пытаюсь ввести .Outlooktable

Worksheets ( "BodyEmailTemplate") Диапазон. ( "A1: F19")

Вот код, который у меня есть:

 Dim OutApp As Object
    Dim OutMail As Object


    Dim xInspect As Object
    Dim pageEditor As Object


    Set emailRng = Worksheets("Workings").Range("BC2:BC2000")


    For Each cl In emailRng
        sTo = sTo & ";" & cl.Value


    Next

    sTo = Mid(sTo, 2)

    Set AttachmentRng = Worksheets("Workings").Range("BD2:BD2000")




    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)



    On Error Resume Next
    With OutMail
        .To = ComboBox17.Value
        .CC = sTo
        .BCC = ""
        .Subject = TextBox18.Value
        .Body = ""

        For Each cl In Worksheets("Workings").Range("BD2:BD2000")
            If Len(cl.Value) > 1 Then
            .Attachments.Add cl.Value
            End If
        Next

        .display

        'add body template from excel

        Set xInspect = newEmail.GetInspector
        Set pageEditor = xInspect.WordEditor

        Worksheets("BodyEmailTemplate").Range("A1:F19").Copy

        pageEditor.Application.Selection.Start = Len(.Body)
        pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
        pageEditor.Application.Selection.PasteAndFormat (wdFormatPlainText)
        .display


        Set pageEditor = Nothing
        Set xInspect = Nothing

        'end add body template from excel


    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing


End Sub

В данный момент код выполняется, но не удается добавить выбор из диапазона Excel в .Outlookbody.

Ценю любые простые в использовании дружеские советы! Пожалуйста, будьте осторожны со мной - я как бы новичок на VBA: P

Большое спасибо!