Excel VBA 選択した行数をカウントするには？

キー操作だと （Shift+Ctrl+↓キー) で選択すると一気に末端のセルまで選択可能になります。 ソースは以下の表記になりますよね。 Range(Selection, Selection.End(xlDown)).Select で、質問です。 ここで範囲選択したセルの行数をカウント（何行選択したか？）するなんて可能なんでしょうか？ アドバイスお願い致します。