最終行の求め方

・最終行の求め方
gyou = ActiveSheet.Range("a65535").End(xlUp).Row
or
gyou=ActiveSheet.Range("a1").currentregion.rows.count
or
i = Cells(Rows.Count, 1).End(xlUp).Row
MsgBox i

最終列の場合は、
Cells(1, Columns.Count).End(xlToLeft).Column