Excel VBA last rows

Dim RowCount As Long
-------------------------------------------
一般來說求最大行數除了指定 65536
還會用一欄來當key值，跑迴圈看是否空白
-------------------------------------------
但下面這行會是不錯的選擇
RowCount = Worksheets("Sheet1").Range( key  & Rows.Count).End(xlUp).Row