see code below
this gives me this result:
11111
XXXX 22222
33333
but i want
XXXXX 111111
XXXXX 222222
XXXXX 333333
this is the same result that i have with Send to Excel
XLApp.Visible = True
'set XLSheet = XLDoc.Worksheets(TabNumber)
set XLSheet = XLDoc.Worksheets.Add
XLSheet.Activate
set table = ActiveDocument.GetSheetObject(SheetObject)
table.CopyTableToClipboard false 'Copy data to Clipboard
XLSheet.Paste XLSheet.Range("A1") 'Paste data into cell
XLSheet.Cells.WrapText = False
XLsheet.Cells.select
XLsheet.Cells.EntireColumn.AutoFit
XLSheet.Rows("1:1").Select
XLSheet.Cells.AutoFilter
XLsheet.name = TabText
