Auto select page break

[scoudny]

Hello lords of the green X

I'm sorry if this is an obvious repeated question, I know I have seen something similar on here before but cannot find it now I need it.
I have a multi page excel workbook containing data and on one page the data is collated into a report, shimples.
Page 1 of the report populates cells E1:P45, page two, if required, E46:P90 and so on for 25 pages.
Although it pretty easy to go into page break preview and drag the blue line up and down to suit the amount of pages I report I am incredibly lazy and would rather the pc worked out how many pages to print for me.
I have a nice 'pages to print' counter, goading me that I will yet again have to drag the blue line up or down as microseconds of my life are wasted in this fashion.
I already have a macro button to print and save as pdf once I have set the page break, could this be something that could be added to the VBA code?

Apologies again if this is a bit samey and thank you in advance of any answers.

 

[KOKOSEK]

Sub PageBreakEachX()
Dim HPBreak As HPageBreak
Dim i As Long, lastrow As Long
Dim RowsPerPage As Integer
RowsPerPage = 45           'you want to print 45 rows per page
With ActiveSheet
    .ResetAllPageBreaks
    lastrow = .Cells(Rows.Count, "E").End(xlUp).Row
    For i = RowsPerPage + 1 To lastrow Step RowsPerPage
        On Error Resume Next
        For Each HPBreak In .HPageBreaks
            .Cells(i, 1).EntireRow.Select
            ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
        Next HPBreak
    Next i
End With
Cells(1, 1).Select
End Sub

 

[scoudny]

Thank you Kokosek, thats done the trick

 

[KOKOSEK]

Great. Happy to help.