Range.Row (Excel)

Returns the number of the first row of the first area in the range.

Dim lngRow As Long
lngRow = ActiveCell.Row