Here is a hint, the following code may give you some ideas. I can consider how this can be properly integrated into your overall solution if we can discuss my questions in above posts.
' Scroll down 100 rows from current position
ActiveWindow.SmallScroll Down:=100
' Scroll up 100 rows from current position
ActiveWindow.SmallScroll Down:=-100
' Select a specific cell (A100 in this case), although if it is below the visible window it will
' generally be scrolled to the bottom. I don't know if you need it at the to
Application.Goto Reference:="R100C1"
Bookmarks