Window.VisibleRange (Excel)

Retorna um objeto Range que representa o intervalo de células que estão visíveis na janela ou painel. Se uma coluna ou linha estiver parcialmente visível, ela será incluída no intervalo. Somente leitura.

Dim rngVisibleRange As Range
Set rngVisibleRange = ActiveWindow.VisibleRange