Cita:
Iniciado por David el Grande 
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
Muchas gracias por todo David