По сути Вам надо было лишь чуточку подработать код:
Sub ReorderPageBreaks()
Dim lr As Long, lpb As Long, lsign As Long
Dim IsNeedBreak As Boolean
ActiveWindow.View = xlNormalView
For lr = 1 To 50
If Rows(lr).PageBreak <> xlPageBreakNone Then
lpb = lpb + 1
End If
If InStr(1, Cells(lr, 5).Value, "Уполномоченный представитель", 1) Then
lsign = lsign + 1
If lsign > 1 Then
If lpb > 0 Then
IsNeedBreak = True
Exit For
End If
End If
End If
Next
If IsNeedBreak Then
Cells.PageBreak = xlPageBreakNone
For lr = 1 To 50
If Cells(lr, 2).Value = "ИТОГО" Then
Rows(lr).PageBreak = xlPageBreakManual
End If
Next
End If
End Sub
Потому что и надписи у Вас не в первом столбце и сами представитель надо искать по части совпадения.
P.S. Да, скрин можно открыть в другой вкладке. Но это все равно не дает четкого понимания в каких столбцах записаны данные и как они записаны в ячейках
А этот код уже более универсален - он сначала определяем нужны ли разрывы и делает их только в этом случае. Если же все умещается на одну страницу и так - то он ничего не делает. Плюс он автоматом сам определяет кол-во строк и переназначает область печати, если кол-во изменилось:
Sub ReorderPageBreaks()
Dim lr As Long, lpb As Long, lsign As Long
Dim IsNeedBreak As Boolean
'определяем область печати
lr = Cells(Rows.Count, 5).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = Range("A1:AL" & lr + 3).Address
ActiveWindow.View = xlNormalView
For lr = 1 To lr
If Rows(lr).PageBreak <> xlPageBreakNone Then
lpb = lpb + 1
End If
Next
'разрывы не нужны - все умещается в одну стриницу
If lpb = 0 Then
Exit Sub
End If
lpb = 0
'разрывы нужны - ищем место
For lr = 1 To lr
If Rows(lr).PageBreak <> xlPageBreakNone Then
lpb = lpb + 1
End If
If InStr(1, Cells(lr, 5).Value, "Уполномоченный представитель", 1) Then
lsign = lsign + 1
If lsign > 1 Then
If lpb > 0 Then
IsNeedBreak = True
Exit For
End If
End If
End If
Next
If IsNeedBreak Then
Cells.PageBreak = xlPageBreakNone
For lr = 1 To lr
If Cells(lr, 2).Value = "ИТОГО" Then
Rows(lr).PageBreak = xlPageBreakManual
End If
Next
End If
End Sub