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