وذلك بهذا الكود
Sub InsertPageBreaksByKeyphrase()
Dim rangeSelection As Range
Dim cellCurrent As Range
Set rangeSelection = Application.Selection
ActiveSheet.ResetAllPageBreaks
For Each cellCurrent In rangeSelection
If cellCurrent.Value = "رقم البطاقة التموينية" Then
ActiveSheet.Rows(cellCurrent.Row + 1).PageBreak = _
xlPageBreakManual
End If
Next cellCurrent
End Sub