Sub Print_Title()
' Макрос записан 22.09.2010 (Sergey)
      Dim a%, b&, d&, e, n&, i&
      Application.ScreenUpdating = False
      e = ActiveSheet.PageSetup.PrintTitleRows
      e = Range(e).Rows.Count
'    On Error Resume Next
      ActiveSheet.Copy Before:=Sheets(2)
      ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
      ActiveSheet.DrawingObjects(1).Text = "Печать"
      ActiveSheet.DrawingObjects(1).OnAction = "Print_INV16"
      a = ActiveSheet.HPageBreaks(1).Location.Row
      b = Cells(Rows.Count, 1).End(xlUp).Row
      d = a: n = 5: i = 1
      While d < b
          Rows(d - 1).Insert
          Rows(d - 1).Insert
          Cells(d - 1, 2).Value = "ИТОГО ПО СТРАНИЦЕ:"
          ActiveWindow.View = xlNormalView
          ActiveWindow.View = xlPageBreakPreview
          Set ActiveSheet.HPageBreaks(i).Location = Rows(d)
          Cells(d - 1, 17).Formula = "=SUM(" & Range(Cells(n, 17), Cells(d - 2, 17)).Address(0, 0) & ")"
          Cells(d - 1, 18).Formula = "=SUM(" & Range(Cells(n, 18), Cells(d - 2, 18)).Address(0, 0) & ")"
          Cells(d - 1, 17).AutoFill Range(Cells(d - 1, 17), Cells(d - 1, 18)), 0
          n = d: i = i + 1
          d = a + d - e - 1
          b = Cells(Rows.Count, 1).End(xlUp).Row + 1
      Wend
      Cells(b, 2).Value = "ИТОГО ПО СТРАНИЦЕ:"
      Cells(b, 17).Formula = "=SUM(" & Range(Cells(n, 17), Cells(b - 2, 17)).Address(0, 0) & ")"
      Cells(b, 18).Formula = "=SUM(" & Range(Cells(n, 18), Cells(b - 2, 18)).Address(0, 0) & ")"
      Cells(b, 17).AutoFill Range(Cells(b, 17), Cells(b, 18)), 0
      Application.ScreenUpdating = True
End Sub

...
      While d < b
          Rows(d - 1).Insert
'        Rows(d - 1).Insert
          Cells(d - 1, 2).Value = "ИТОГО ПО СТРАНИЦЕ:"
...