Set MySheet = ActiveWorkbook.ActiveSheet

    Count = 1
    Do While Count <= 50
         Set AreaBeg = MySheet.Cells.Find("AreaBeg" + CStr(Count))

         If AreaBeg Is Nothing Then
            Exit Do
         End If

         Set AreaEnd = MySheet.Cells.Find("AreaEnd" + CStr(Count))

         TopRowArea = AreaBeg.Row
         DownRowArea = AreaEnd.Row
         i = TopRowArea

         Do While i <= DownRowArea
            If MySheet.Rows(i).PageBreak = -4105 Then
                MySheet.Rows(TopRowArea).PageBreak = -4135
                Exit Do
            End If
            i = i + 1
         Loop


         AreaBeg.Value = ""
         AreaEnd.Value = ""
         Count = Count + 1
    Loop