Window.VisibleRange (Excel)

Returns a Range object that represents the range of cells that are visible in the window or pane. If a column or row is partially visible, it's included in the range.

Dim rngVisibleRange As Range
Set rngVisibleRange = ActiveWindow.VisibleRange