Please help Table header and spacing issue

[Fernandez30]

Hi,

Problem 1: I am trying to paste 2 tables on outlook, with a header as table 1 & table 2 on top of the tables.
Problem 2: While copying the tables not able to add a space between 2 tables ( Chr (10) & Chr(10), which is ENTER twice is not working)

>>> use code - tags <<<

'table 1
    Sheet8.Range("A12").CurrentRegion.Copy
      
    pageEditor.Application.Selection.Start = Len(.body)
    pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
    pageEditor.Application.Selection.PasteAndFormat (wdFormatOriginalFormatting)
     .display
     
    Chr (10) & Chr(10)

'table 2
Sheet11.Range("A12").CurrentRegion.Copy
pageEditor.Application.Selection.Start = Len(.body)
pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
pageEditor.Application.Selection.PasteAndFormat (wdFormatOriginalFormatting)
.display

 

[Fernandez30]

Hi,

Problem 1: I am trying to paste 2 tables on outlook, with a header as table 1 & table 2 on top of the tables.
Problem 2: While copying the tables not able to add a space between 2 tables ( Chr (10) & Chr(10), which is ENTER twice is not working)

>>> use code - tags <<<

'table 1
    Sheet8.Range("A12").CurrentRegion.Copy
     
    pageEditor.Application.Selection.Start = Len(.body)
    pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
    pageEditor.Application.Selection.PasteAndFormat (wdFormatOriginalFormatting)
     .display
    
    Chr (10) & Chr(10)

'table 2
Sheet11.Range("A12").CurrentRegion.Copy
pageEditor.Application.Selection.Start = Len(.body)
pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
pageEditor.Application.Selection.PasteAndFormat (wdFormatOriginalFormatting)
.display

Can somebody please help me