ズバリこれ！
[VB]
= Cells(Rows.Count, 1).End(xlUp).Row + 1
[/VB]
関連記事
スポンサーリンク
マクロ(VBA)を使いまくろー！(>_<)