[vba]Код
Sub Razriv()
Dim Specification As Range
Dim iHPBreak As HPageBreak
On Error Resume Next 'удаляем все разрывы
For Each iHPBreak In ActiveSheet.HPageBreaks
iHPBreak.Delete
Next
Set Specification = Columns("A:C").Find("Спецификация на реализацию товара №", , xlValues, xlPart)
If Not Specification Is Nothing Then
Do
If Specification.Row <> 4 Then
ActiveSheet.HPageBreaks.Add Specification
End If
Set Specification = Cells.FindNext(Specification)
Loop While Specification.Row <> 4
End If
End Sub
[/vba]