Macros & VBA: ActiveSheet.HPageBreaks

[mrocf]

En realidad, esta pérdida de tiempo y recursos deviene de no haber contado nunca con tu planilla real.
Ello es lo que ha impedido que "se vea" lo que tú no estás viendo, es decir: no es cierto que entre Cliente y Cliente tengas una celda vacía sino que -probablemente- esas celdas deben tener caracteres "espacio".

En fin, probemos un nuevo método: buscar el texto "Total" en la columna que seleccionarás:

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.EntireColumn.Find(What:="Total", LookIn:=xlValues)
  FirstCell = Celda.Address
Do
  ActiveSheet.HPageBreaks.Add Before:=Cells(Celda.Row + 1, 1)
  Set Celda = Celda.EntireColumn.FindNext(Celda)
Loop Until Celda.Address = FirstCell
  Set Celda = Nothing
End Sub

Suerte (ja ja ja )