Range.CurrentArray (Excel)

If the specified cell is part of an array, returns a Range object that represents the entire array.

Dim rngCurrentArray As Range
Set rngCurrentArray = ActiveCell.CurrentArray