Macros & VBA: ActiveSheet.HPageBreaks

[mrocf]

Intenta con:

Código:

Sub InsertaSaltoDePagina()
'''''''''''''''''''
' Seleccionar la columna en la que se encuentra el texto "Total"
' Luego de ello, ejecutar la presente macro
'''''''''''''''''''
Dim Celda As Range
Set Celda = ActiveCell.End(xlDown).End(xlDown)
Do
  ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(Celda.Row + 1, 1)
  Set Celda = Celda.End(xlDown)
Loop While Celda.Row < 65536
  Set Celda = Nothing
End Sub

Pero advierte que -previamente- debes seleccionar la columna en la que se encuentran los textos: "Total".
Suerte, Cacho.