Range.Row (Excel)

Devuelve el número de la primera fila de la primera área del rango.

Dim lngRow As Long
lngRow = ActiveCell.Row