VBA assistance needed

[pujo]

I have this code that scrolls down the page.
It starts at B8 but doesn't stop.

How do I make it stop at row 158 then start over from the top.
It will loop until {ESC} is pressed.
Thanks, PuJo

Sub SlowScroll()
    Application.EnableCancelKey = xlErrorHandler
    On Error GoTo ErrHandler

    Dim r As Long
    Range("B8").Select
    Do
        DoEvents
        Sleep 2000
        ActiveWindow.SmallScroll Down:=5
        r = r + 1
        If r = 50 Then Range("B8").Select: r = 0
       
    Loop

    Application.EnableCancelKey = xlInterrupt
    Exit Sub

ErrHandler:
    Application.EnableCancelKey = xlInterrupt
    ActiveWindow.ScrollRow = 1
End Sub

 

[pujo]

Let me correct myself...
Do Until first empty cell then start over from the top...
Thanks!

 

[Fluff]

Duplicate https://www.mrexcel.com/forum/excel...ecution-has-been-interrupted.html#post5051590

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).