Auto Scrolling with groups of rows

[ToddF]

I would like to create an automatic scrolling Excel sheet page to display on our monitor with a twist. I want 5 rows to scroll together for example 1-5 all leave the page at the same time and 6-10 take the place. I need the 5 rows grouped together. I have the following code I was able to modify and use to meet the speed and the range of my information. However, I have not been able to figure out how to group the 5 lines to move as one.
I did not create this macro but it seams to work partially for my needs. If there is a better way you will not offend me on contrary you would make me very hapy if you could provide a code that would do what i am looking for.

Sub Scroll()

Dim r As Range, cell As Range, ii As Long, i As Long
Range("J1").ClearContents
Range("J1").Activate
 
Set r = Range("A5:A50")
bStop = False
Do
DoEvents
For Each cell In r
DoEvents
ActiveWindow.ScrollRow = cell.Row
DoEvents
Application.ScreenUpdating = True
DoEvents
For i = 1 To 10000 '< make this number bigger if you need to slow the scroll down
DoEvents
If ii > 10000 Then
ii = 0
Else
ii = ii + 1
End If
If Not IsEmpty(Range("J1")) Then Exit Sub
DoEvents
Next
DoEvents
Next
DoEvents
Loop While IsEmpty(Range("J1")) And bStop = False
 
End Sub

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>

 

[ToddF]

update on what am I wanting to do...

If it would be easier I could reformat my information to be across difrent sheets. In this case I would need to AutoScroll the sheets in a workbook.

If someone could give guidence (who am i kidding) a maco for me to use that would be great.

Thank you for your assistance on this issue