Пример пробежки по ячейкам с разделителями. Строка за последней заполненной тоже считается с разделителем, хотя явно его может и не быть. В примере рассматривается только наличие одного листа в ширину.

Sub test112()
Dim HP As Long, RowHP As Long 'строка с разделителем страницы
Dim HPCount As Long 'число разделителей
ActiveSheet.DisplayPageBreaks = True: ActiveWindow.View = xlPageBreakPreview
HPCount = ActiveSheet.HPageBreaks.Count + 1
For HP = 1 To HPCount
If HP = HPCount Then
RowHP = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
Else
RowHP = ActiveSheet.HPageBreaks(HP).Location.Row
End If
Next HP
ActiveWindow.View = xlNormalView
End Sub