WorkBook.WorkSheets.Add(EmptyParam, SheetActive, EmptyParam, EmptyParam);

WorkBook.WorkSheets.Item[1].Copy(After:=WorkBook.WorkSheets.Item[1]); // Вставляем лист в excel

Sub Макрос1()
'
' Макрос1 Макрос
'

'
    Sheets.Add After:=ActiveSheet
End Sub

WorkBook.WorkSheets.Add(After:=ActiveSheet);

  Workbook.Worksheets[1].Cells[CurrentRow, 2] := IntToStr(Acargo_zone_number);
  ExcelApp.Range[ExcelApp.Cells[CurrentRow, 2], ExcelApp.Cells[CurrentRow, ColCount + 1]].Select;
  ExcelApp.Selection.MergeCells := True; // объединение ячеек заголовка
  ExcelApp.Selection.HorizontalAlignment := 3; // горизонтальное выраванивание заголовка по центру

WorkBook.WorkSheets.Add(After:=WorkBook.ActiveSheet);

  Workbook.Worksheets[sh].Cells[CurrentRow, 2] := IntToStr(Acargo_zone_number);
  WorkBook.Worksheets[sh].Range[WorkBook.Worksheets[sh].Cells[CurrentRow, 2], WorkBook.Worksheets[sh].Cells[CurrentRow, ColCount + 1]].Select;
  WorkBook.Worksheets[sh].Selection.MergeCells := True; // объединение ячеек заголовка