В Excel вы можете использовать свойство VisibleRange объекта Window, т.е.
Private Sub DirtyTest()
Dim MyW As Window, TopRow As Long, TopCol As Long
Set MyW = Windows(1) ' index 1 always refers to the window displayed
TopRow = MyW.VisibleRange.Cells.Row
TopCol = MyW.VisibleRange.Cells.Column
' any other code
End Sub
Надеюсь, что поможет
Удачи MikeD