*****
"Original" is an email in Inbox and has a table with last column unfilled.
How do i paste "oElColl" in "Reply" ???

*****

Dim Reply As Outlook.MailItem
Dim Original As Outlook.MailItem

Set Original = Application.ActiveExplorer.Selection(1)

Set Reply = Original.ReplyAll
Reply.Subject = "RE: " & Original.Subject
Reply.Display

Dim oHTML As MSHTML.HTMLDocument: Set oHTML = New MSHTML.HTMLDocument
Dim oElColl As MSHTML.IHTMLElementCollection
With oHTML
.Body.innerHTML = Original.HTMLBody
Set oElColl = .getElementsByTagName("table")
End With

' Code to fill the last column in oElColl