...
IF(NOT FLAG_DEBAG) THEN BEGIN
 // в поле KadrPrikaz.txt  храниться путь к шаблонам
 KP_L.RESET;
 KP_L.SETRANGE(KP_L.NPrik,'NNNN');
 KP_L.FIND('-');
 DIAL.UPDATE( 1 ,KP_L.Txt+'БухШаблоны\tabel_rab_vremeni.XLT');
 xls.Workbooks._Open (KP_L.Txt+'БухШаблоны\tabel_rab_vremeni.XLT');
END;

xlsSheet := xls.ActiveWorkbook.Worksheets.Item( 3 );
xls.Run('InitDocument');

DIAL.UPDATE( 1 ,'Вывод заголовочных данных ..');
 
I:= 1 ;
xlsSheet.Range('A'+FORMAT(I)).Value:='Пользователь';
xlsSheet.Range('B'+FORMAT(I)).Value:=USERID;

REC_PERIOD.GET(CU_MAIN.getPeriodID);
I+= 1 ;
xlsSheet.Range('A'+FORMAT(I)).Value:='НачалоПериода';
xlsSheet.Range('B'+FORMAT(I)).Value:=REC_PERIOD.DATA_N;

I+= 1 ;
xlsSheet.Range('A'+FORMAT(I)).Value:='КонецПериода';
xlsSheet.Range('B'+FORMAT(I)).Value:=REC_PERIOD.DATA_O;

I+= 1 ;
xlsSheet.Range('A'+FORMAT(I)).Value:='ИмяФирмы';
xlsSheet.Range('B'+FORMAT(I)).Value:='ВСЗ филиал ООО РАСКО';

...

// выводим секцию шаблона
xls.Run('InsertSection','СЕК_ЗАГОЛОВОК');
...


  // *** Выводим результаты явок по дням *******************************************

тут цикл  опускаю код...


      I+= 1 ;
      xlsSheet.Range('A'+FORMAT(I)).Value:='Я'+FORMAT(I2);
      IF((REC_YAVKI_L.R_CH= 0 )OR(REC_YAVKI_L.RASHIFROVKA='К')) THEN BEGIN
       IF(REC_YAVKI_L.RASHIFROVKA='В') THEN
         xlsSheet.Range('B'+FORMAT(I)).Value:=''
       ELSE BEGIN
        xlsSheet.Range('B'+FORMAT(I)).Value:=REC_YAVKI_L.RASHIFROVKA;
       END

      END ELSE
       xlsSheet.Range('B'+FORMAT(I)).Value:=FORMAT(REC_YAVKI_L.R_CH);
      //вечерние
      I+= 1 ;
      xlsSheet.Range('A'+FORMAT(I)).Value:='В'+FORMAT(I2);
      IF(REC_YAVKI_L.V_CH= 0 ) THEN
       xlsSheet.Range('B'+FORMAT(I)).Value:=''
      ELSE
       xlsSheet.Range('B'+FORMAT(I)).Value:=REC_YAVKI_L.V_CH;
...

  I+= 1 ;
  xlsSheet.Range('A'+FORMAT(I)).Value:='ГрафикРаботыНаНачалоПериода';
  xlsSheet.Range('B'+FORMAT(I)).Value:=REC_TAB_L.GRAFIK;

...
  
  xls.Run('InsertSection','СЕК_ТАБЕЛЬ');

  POR_NOMER+= 1 ;

 UNTIL REC_TAB_L.NEXT= 0 ;

 xls.Run('InsertSection','СЕК_ПОДВАЛ');

 IF(NOT FLAG_DEBAG) THEN BEGIN
  xls.Run('ShowDocument');
 END ELSE BEGIN
  xls.Run('ShowDocumentForDebag');
 END;

DIAL.CLOSE;

Rem Application.Run( 'Macros Name' ) или k% = Application.Run("DocSubProc2", d)
Dim GlobalPreviosRowSize
Dim GlobalFirstSection

Rem Инициализация документа
Sub InitDocument()
 Rem Скрываем книгу
 Application.Visible = False
 
 Rem снимаем защиту
  Rem Очистка листа документа
 Worksheets("Документ").Activate
 ActiveSheet.Unprotect ("123")
 Cells.Select
 Selection.Delete Shift:=xlUp
 
 Cells.Select
 Selection.Delete Shift:=xlUp
  
 GlobalPreviosRowSize =  1 
 GlobalFirstSection = True
 Rem Настройки Листа
 Sheets("Документ").Select
 Cells( 1 ,  1 ).Select
Rem Application.ActiveSheet.PageSetup.Orientation = XlPageOrientation.xlLandscape
End Sub

Rem Приаттачивание секции к предыдущей секции
Sub AttachSection(SecName)
 InsertSection_ SecName, "ATTACH"
End Sub

Rem Вставка новой секции
Sub InsertSection(SecName)
 InsertSection_ SecName, "ADD"
End Sub

Rem Вывод секции
Sub InsertSection_(AreaName, AddOrAttach)
    Rem Запоминаем позицию курсора
    Worksheets("Документ").Activate
    CurrentRow = ActiveCell.Row
    CurrentCol = ActiveCell.Column
     
    Rem Если идет присоеденение секции позицию не смещаем
    Rem Когда вставляем первую секцию нельзя смещать позицию!
    If (AddOrAttach = "ADD") And (Not GlobalFirstSection) Then
      Cells(CurrentRow + GlobalPreviosRowSize,  1 ).Activate
      CurrentRow = ActiveCell.Row
      CurrentCol = ActiveCell.Column
    End If
    GlobalFirstSection = False
    Rem Находим область для вывода
    Worksheets("Шаблон").Activate
    Range(AreaName).Select
    
    Rem Вертикальные размеры области
    VertSecRowPos = Selection.Row
    VertSecRowSize = Selection.Rows.Count
    VertSecEndRowPos = VertSecRowPos + VertSecRowSize -  1 
    
    Rem Горизантальные размеры области
    GorSecColumnPos = Selection.Column
    GorSecColumnSize = Selection.Columns.Count
    GorSecEndColumnPos = GorSecColumnPos + GorSecColumnSize -  1 
            
    Rem а нужно ли делать автозамену для этой области
    Set iCell = Selection.Find(What:="<", LookIn:=xlFormulas)
        
    Rem Копирование и вставка области в лист документа
    Selection.Copy
    Worksheets("Документ").Activate
    
    Rem вставка ширин столбцов
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    
    Rem а вставка высот строк?
    Rem причем при аттаче секции не выполнять
    If (AddOrAttach = "ADD") Then
     For Count =  1  To Selection.Rows.Count
      Worksheets("Шаблон").Activate
      ВысотаСтроки = Selection.Rows(Count).RowHeight
      Worksheets("Документ").Activate
      Selection.Rows(Count).RowHeight = ВысотаСтроки
     Next Count
    End If
        
     Rem Сама вставка всего(рамки цвета данные и т.п.)
     ActiveSheet.Paste
     Rem Вставка только значений и форматов фисел чтобы отвязатся от формул
     Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    
    If Not iCell Is Nothing Then
     Rem Производим автозамену значений в ячейках с листа данных на выделенном участке документа
     Worksheets("Данные").Activate
     Range("A1").Select
     Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
     RowCount = Selection.Rows.Count
     For i =  2  To RowCount
      Worksheets("Данные").Activate
      WhatReplace = "<" + Cells(i,  1 ) + ">"
      OnWhatReplace = Cells(i,  2 )
      Worksheets("Документ").Activate
      Selection.Replace What:=WhatReplace, Replacement:=OnWhatReplace
     Next i
    End If
   
   Rem Смещение поз. курсора на конец вставленной области
   Worksheets("Документ").Activate
   Cells(CurrentRow, CurrentCol + GorSecColumnSize).Activate
   
   GlobalPreviosRowSize = VertSecRowSize
   
End Sub

Rem Отображение документа
Sub ShowDocument()
Rem снимаем защиту
 
 Worksheets("Документ").Activate
 ActiveSheet.Protect ("123")
 Cells( 1 ,  1 ).Select
 
 Application.Visible = True

 DeleteTemplateLists
 
End Sub
Sub ShowDocumentForDebag()
 Worksheets("Документ").Activate
 Cells( 1 ,  1 ).Select
 Application.Visible = True
End Sub


Sub ClearDataList()
 Sheets("Данные").Select
 Cells.Select
 Selection.ClearContents
End Sub


Sub DeleteTemplateLists()
 Application.DisplayAlerts = False
  Sheets("Данные").Delete
  Sheets("Шаблон").Delete
 Application.DisplayAlerts = True
End Sub