Bueno, modifiqué un poco el código para que recorra hasta el último dato de la columna:
Código:
Dim Looping As Integer
For Looping = 1 To Cells(1, 1).End(xlDown).Row
If Cells(Looping, 1) = "Salto" Then
Worksheets(1).HPageBreaks.Add Cells(Looping, 1) 'Aquí insertamos el salto de página
End If
Next Looping
Aquí lo que hacemos es recorrer todos los datos de la columna y buscamos un valor (en este caso el valor que buscamos es Salto), si encontramos ese valor agregamos un salto de página justo allí.
Espero que te sirva. Saludos
