Поэтому и пишу так.

Могу описать работу скрипта:
1. Открытие книги Excel
2. Нахождение последней заполненой ячейки в таблице
3. Переход на строку ниже и выбор первой ячейки в этой строке
3. Копирование Табличного объекта из приложение (TB03)
4. Вставка в Excel (TB03)
5. Сохранение, закрытие.

Необходимо копировать и вставлять все без изменений в ячейках.

p.s.: Признаюсь. Это мое первое творение на VBS.

Задача такова:
1. Есть рабочий макрос:

 sub export

Dim FSO,FileName
iRow = 2

Set FSO = CreateObject("Scripting.FileSystemObject")

FileName = "D:\test.xlsx" 

set xlApp = CreateObject("Excel.Application")
xlApp.Visible = true 
	
set xlWB = xlApp.Workbooks.Open(FileName)
set xlSheet = xlWB.Worksheets(1)
set obj = ActiveDocument.getsheetobject(ChartName) 

xlSheet.Activate

while not (isempty(xlSheet.Cells(iRow, 1)))
	iRow = iRow+1
wend
		
set txt1 = ActiveDocument.GetSheetObject("CH03") ' 
	
txt1.CopytableToClipboard TRUE '(1*)
xlSheet.Cells(iRow,1).Select
xlSheet.Paste '(2*)

For i=iRow to iRow+1 '
	If (xlSheet.Range("A" & i).Value = "Номенклатура ") Then
		xlSheet.Range("A" & i).EntireRow.Delete
	End if
Next

xlWB.Save
xlWB.Close
xlApp.Quit

'*************  Конец *********************************************

end sub

2. Необходимо чтобы при копировании таблицы (1*), где есть строки в ячейках с двумя и более пробелами (н-р: дверь   дерев.), все значения при вставке В EXCEL не изменялись (не удалялись лишние пробелы).

Т.е. если коротко:

Источник:

Номенклатура  |
-------------------
дверь   дерев. |

На выходе: (сейчас)

Номенклатура  |
-------------------
дверь дерев.   |

На выходе: (Должно быть как и в источнике)

Номенклатура  |
-------------------
дверь   дерев. |

Необходимо копирование без каких либо изменений в наполнении таблицы!)))

Очень надеюсь на вашу помощь!!!)))