This macro scrolls down six lines and then moves the cursor back up five lines so you’re working in the middle of the screen instead of at the bottom.

---

Sub TestScroll()
'
' TestScroll Macro
'
'
Selection.MoveDown Unit:=wdLine, Count:=6, Extend:=wdMove
Selection.MoveUp Unit:=wdLine, Count:=5, Extend:=wdMove
End Sub