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