Excel VBA 選択範囲のセルの数取得

[vb]
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
rowcnt = Selection.Rows.Count

[/vb]