Per la prima cella:

Se la prima cella che ti interessa è selezionata... allora:

(Cella iniziale).Select
PrimaRiga = Activecell.Row
Selection.End(xlDown).Select
UltimaRiga = ActiveCell.Row

Ciao

Daryl74