Shape.BottomRightCell (Excel)

Returns a Range object that represents the cell that lies under the lower-right corner of the object.

Dim shp As Shape: Set shp = 
Dim rngBottomRightCell As Range
Set rngBottomRightCell = shp.BottomRightCell