objApp = new Excel.Application();
                objApp.DisplayAlerts = false;
                objBooks = objApp.Workbooks;
                objBook = objBooks.Open(path,
                 Type.Missing, Type.Missing, Type.Missing, Type.Missing,
                 Type.Missing, Type.Missing, Type.Missing, Type.Missing,
                 Type.Missing, Type.Missing, Type.Missing, Type.Missing,
                 Type.Missing, Type.Missing);

                objSheets = objBook.Worksheets;
                objSheet = (Excel._Worksheet)objSheets.get_Item(1);
 
                 ... 

                int dtRows = ds.Tables[1].Rows.Count;
                int сolumns = ds.Tables[1].Columns.Count;
                var startCell = (Range)objSheet.Cells[row, 1];
                var endCell = (Range)objSheet.Cells[row + dtRows - 1, columns];
                var writeRange = objSheet.Range[startCell, endCell];

                var data = new object[dtRows, columns];

                for (var r = 1; r <= dtRows; r++)
                {
                    for (var c = 1; c <= columns; c++)
                    {
                            data[r - 1, c - 1] = ds.Tables[1].Rows[r - 1][c - 1];
                    }
                }

                writeRange.Value2 = data;

                sumqty = ds.Tables[2].Rows[0][0].ToString();
                sumcomplect = ds.Tables[2].Rows[0][1].ToString();
                sncount = ds.Tables[2].Rows[0][2].ToString();

                RunMacro(objApp, new Object[] { "DoDrawCells", writeRange, row + dtRows + 6, sumqty, sumcomplect, sncount }); 

Public Sub DoDrawCells(Rng As Range, RowIndex As Integer, sumqty As String, sumcomplect As String, sncount As String)

   With Rng
        .Borders.LineStyle = xlContinuous
        .Borders.Weight = xlThin
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Rows.AutoFit
        .Font.Name = "Times New Roman"
        .Font.Size = 11
   End With
   
   Dim Row As Range
   Dim Bold As Integer
   Dim InComplect As Integer
   Dim r1 As Range
   Dim r2 As Range
   Dim CurrRow As Integer
   Dim ColCount As Integer
   Dim str As String
   ColCount = Rng.Columns.Count
   
   For Each Row In Rng.Rows
     Bold = Row.Cells(ColCount - 1)
     InComplect = Row.Cells(ColCount)
     If Bold >= 1 Then
        Set r1 = Range(Row.Cells(1).Address & ":" & Row.Cells(Row.Columns.Count - 2).Address)
        r1.Font.Bold = True
        If Bold = 2 Then
            Set r2 = Range(Row.Cells(1).Address & ":" & Row.Cells(Row.Columns.Count - 3).Address)
            r2.MergeCells = True
            r2.HorizontalAlignment = xlLeft
        End If
        r1.RowHeight = 2 * r1.RowHeight
     ElseIf InComplect = 1 Then
        Set r1 = Range(Row.Cells(2).Address)  
        r1.HorizontalAlignment = xlRight
        Set r1 = Range(Row.Cells(7).Address)  
        r1.HorizontalAlignment = xlRight
        Set r1 = Range(Row.Cells(9).Address) 
        r1.HorizontalAlignment = xlRight
     End If
   Next Row
   
   CurrRow = RowIndex - 6
   If sumqty = "0" Then
       Rows(RowIndex - 2).Delete
   Else
       str = "ZZZZZZZZZZZ:"
       InsNewRow CurrRow, ColCount, sumqty, str
       CurrRow = CurrRow + 1
   End If
   
   If sumcomplect = "0" Then
        Rows(RowIndex - 3).Delete
   Else
       str = "ZZZZZZZZZZ:"
       InsNewRow CurrRow, ColCount, sumcomplect, str
       CurrRow = CurrRow + 1
   End If
   
   If sncount = "0" Then
       Rows(RowIndex - 4).Delete
   Else
       str = "ZZZZZZZZZZ:"
       InsNewRow CurrRow, ColCount, sncount, str
   End If
   
   'удаляем вспомогательные столбцы
   Range(Rng.Offset(, ColCount), Rng.Offset(, ColCount - 2)).EntireColumn.Delete
   
   If Application.Version = "11.0" Then
        With ActiveSheet.PageSetup
            .LeftFooter = "&""Times New Roman""&11&Ч*ZZZ №:  &Ж" & Cells(3, 2).Value & "    &Ж*ZZZ №:  &Ж" & Cells(5, 2).Value & Chr(10) & _
            "&ZZZZZZZZZZZ"
            .RightFooter = "&""Times New Roman""&11Страница &С из &К"
        End With
   Else
        With ActiveSheet.PageSetup
            .LeftFooter = "&""Times New Roman""&U&11*ZZZ №:  &B" & Cells(3, 2).Value & "    &B*ZZZ №:  &B" & Cells(5, 2).Value & Chr(10) & _
            "&UZZZZZZZZZZ"
            .RightFooter = "&""Times New Roman""&11Страница &P из &N"
        End With
   End If
End Sub

Public Sub InsNewRow(CurrRow As Integer, ColCount As Integer, Value As String, str As String)
   Dim StartCell As Range
   Dim EndCell As Range
    
   Set StartCell = Range(Rows.Cells(CurrRow, ColCount - 5).Address)
   Set EndCell = Range(Rows.Cells(CurrRow, ColCount - 3).Address)
  
   Set r1 = Range(StartCell, EndCell)
   r1.MergeCells = True
   r1.HorizontalAlignment = xlLeft
   r1.Value2 = str
   r1.Font.Name = "Times New Roman"
   r1.Font.Size = 11
   r1.Font.Bold = True
   r1.Interior.ColorIndex = 15
   r1.Borders.LineStyle = xlContinuous
   r1.Borders.Weight = xlThin

    Set r1 = Range(Rows.Cells(CurrRow, ColCount - 2).Address)
    r1.Font.Bold = True
    r1.Value2 = Value
    r1.HorizontalAlignment = xlCenter
    r1.Borders.LineStyle = xlContinuous
    r1.Borders.Weight = xlThin
End Sub