Cita:
Iniciado por David el Grande 
Bueno, explico, sería algo más o menos así:
Código:
Dim Count As Integer
Do While Cells(Count,1) <> "" 'Ejecutamos este código mientras no encontremos una fila vacía
Count = Count + 1
If Cells(Count, 1) = "Valor buscado" Then
Worksheets(1).HPageBreaks.Add Cells(Count, 1) 'Aquí insertamos el salto de página
End If
Loop
P.S.: En este caso la columna de trabajo es A (1), puedes cambiar por la que desees...
Muchas gracias David por tu respuesta. Espero no ser muy pesado pero hay un problema y es que hay filas vacías. Además me da un error 1004 al ejecutar la macro. Al darle a depurar me marca en amarillo Do While Cells(Count, 1) <> "" 'Ejecutamos este código mientras no encontremos una fila vacía