Try:

myRow = Selection.Row

Some related items:

Selection.Row = row  of upper left cell  of selected  area
Selection.Column = column  of upper left cell of selected area
Selection.Count = Total cells in selected area
UBound(Selection.Formula,1) = # of rows in selected area
UBound(Selection.Formula,2) = # of columns in selected area

does this get you on your way ?

SUB cellad

MsgBox (" THE ACTIVE cell  ADDRESS IS ") & ActiveCell.Address

End sub

Use

ActiveCell.Row ()

ActiveCell is your current cell, and row  () is a method to return the row.

If you have an area selected, ActiveCell will be the one that is highlighted
differently.

If instead you use

Selection.Row ()

Then it returns the top row if you have a multi-row area selected.
Confirmed by help: "Returns the number  of the first row of the first area in
the range."