Sub Вставить_разрывы()
    Dim sh As Worksheet
    Dim FoundStr As Range
    Dim FAdr As String, r&
    Application.ScreenUpdating = False
    For Each sh In Worksheets
    With sh
        .PageSetup.PrintArea = "$A:$HC"
        .ResetAllPageBreaks
        .PageSetup.Zoom = False
        .PageSetup.FitToPagesWide = 1
        .PageSetup.FitToPagesTall = False
        Set FoundStr = .Columns("GE:HC").Find("новая страничка", , xlValues, xlWhole)
        If Not FoundStr Is Nothing Then
            FAdr = FoundStr.Address
            Do
                Set FoundStr = .Columns("GE:HC").FindNext(FoundStr)
                .HPageBreaks.Add Before:=sh.Rows(FoundStr.Row)
            Loop While FoundStr.Address <> FAdr
        End If
        If .HPageBreaks.Count Mod 2 = 0 Then
            r = .UsedRange.Row + .UsedRange.Rows.Count
            .Cells(r, 1) = "."
            .Cells(r, 1).NumberFormat = ";;;"
            .HPageBreaks.Add Before:=.Cells(r, 1)
        End If
    End With
    Next
End Sub