Private Sub Worksheet_Activate()
    Dim ws As Worksheet
    Dim visRng As String
    Dim ar, arr

Set ws = ActiveSheet

Application.ScreenUpdating = False

Sheets("Sheet1").Activate     '<~~~~~ change to suit
visRng = ActiveWindow.VisibleRange.Address

Application.EnableEvents = False
ws.Activate
Application.EnableEvents = True

ar = Split(visRng, ":")
arr = Split(Mid(ar(0), 2), "$")
ActiveWindow.ScrollRow = arr(UBound(arr))

Application.ScreenUpdating = True

End Sub