Sub u_700()
    Application.ScreenUpdating = False
    u = Range("a93").End(xlUp).Row
    For Each w In Range("a53:a" & u)
        f = Application.Match(w, Range("a94:a9999"), 0) + 94
        b = 0
        For Each a In ActiveSheet.HPageBreaks
            If a.Extent = xlPageBreakFull Then
                b = b + 1
                On Error Resume Next
                x = ActiveSheet.HPageBreaks(b).Location.Row
                If x > f Then
                    Exit For
                End If
            End If
        Next
        Worksheets("Лист1").Hyperlinks.Add Anchor:=Range("h" & w.Row), Address:="", _
            SubAddress:="Лист1!A" & f, TextToDisplay:="" & b
    Next
    Application.ScreenUpdating = True
End Sub