ActiveWindow.ScrollRow  = 1

vagy általánosabban

Dim WB As Workbook

Set WB = Workbooks("ez az amaz.xls")

WB.Windows(1).ScrollRow=1

esetleg

ThisWorkbook.Windows(1).ScrollRow=1