The following will work
Sub Send_Cell()
'Graham Mayor - https://www.gmayor.com - Last updated - 02 May 2020
'Send the formatted content of a table cell in an Outlook Email message
'Requires the code from - http://www.rondebruin.nl/win/s1/outlook/openclose.htm
'to either retrieve an open instance of Outlook or open Outlook if it is closed.
Dim olApp As Object
Dim oItem As Object
Dim oTable As Table
Dim olInsp As Object
Dim wdDoc As Document
Dim oRng As Range, oCell As Range

    Set oTable = ActiveDocument.Tables(1)
    Set oCell = oTable.Cell(1, 1).Range
    'eliminate cell end character
    oCell.End = oCell.End - 1
    'copy cell content
    oCell.Copy

    'Get Outlook
    Set olApp = OutlookApp()
    On Error GoTo 0

    'Create a new mailitem
    Set oItem = olApp.CreateItem(0)

    With oItem
        .Subject = "This is the subject"
        .BodyFormat = 2
        Set olInsp = .GetInspector
        Set wdDoc = olInsp.WordEditor
        Set oRng = wdDoc.Range
        'cursor to the start
        oRng.Collapse 1
        'paste the cell content
        oRng.Paste
        oRng.Collapse 0
        oRng.Text = " this is text after the cell content" & vbCr & vbCr
        oRng.Collapse 0
        'copy another cell
        Set oCell = oTable.Cell(1, 2).Range
        'eliminate cell end character
        oCell.End = oCell.End - 1
        'copy cell content
        oCell.Copy
        oRng.Paste
        .Display
    End With
    'delete the temporary file
lbl_Exit:
    Set oItem = Nothing
    Set olApp = Nothing
    Set olInsp = Nothing
    Set oRng = Nothing
    Set wdDoc = Nothing
    Exit Sub
End Sub