Range.Top (Excel)

Returns a Variant value that represents the distance, in points, from the top edge of row 1 to the top edge of the range.

If the range is discontinuous, the first area is used. If the range is more than one row high, the top (lowest numbered) row in the range is used.

Dim lngTop As Long
lngTop = ActiveCell.Top