Option Explicit

Const FIRST_ROW& = 9
Const FIRST_COL$ = "AA"
Const LAST_COL$ = "AJ"
Const ROW_HEIGHT = 11.25
Sub CreatePageSubtotals()
On Error GoTo ErrorHandler
' Итоги по страницам
Dim viewState, hpb As HPageBreak, iRow1&, iRow2&, iRowPB&, iPB&, PN&
ThisWorkBook.Sheets("стр.2").Select
viewState = ActiveWindow.View
ActiveWindow.View = xlPageBreakPreview


  PN = 1
CicleStart:
    iRow2 = ActiveSheet.HPageBreaks(PN).Location.Row
        
    PN = PN + 1
    Rows(iRow2).Insert
    Cells(iRow2, "B") = PN '"Итого по странице"
    
    iRow2 = iRow2 + 1
    
    Rows(iRow2).Insert
    Cells(iRow2, "B") = iPB '"Порядковых номеров на странице"
    iRow2 = iRow2 + 1
             
    Rows(iRow2).Insert
    Cells(iRow2, "B") = iRow2 '"На сумму фактически:"
    
       
    iRow2 = iRow2 + 1
    Rows(iRow2).PageBreak = xlPageBreakManual
    
    GoTo CicleStart  'выход будет по ощибке ActiveSheet.HPageBreaks(PN).Location.Row
    
ErrorHandler:

   iRow2 = Cells(Rows.Count, 1).End(xlUp).Row + 1
    
    Rows(iRow2).Insert
    Cells(iRow2, "B") = PN '"Итого по странице"
    
    iRow2 = iRow2 + 1
    
    Rows(iRow2).Insert
    Cells(iRow2, "B") = iPB '"Порядковых номеров на странице"
    iRow2 = iRow2 + 1
             
    Rows(iRow2).Insert
    Cells(iRow2, "B") = iRow2 '"На сумму фактически:"
End Sub