知っていてもすんなりcodeは出てきませんので、便利帳代わりに書いておきます。

①　データの最終行を知りたい

データ入力をどこから始めるかを決める為に、現在のデータの最終セルをgetしたいですね。

Option Explicit

Private Sub CommandButton1_Click()

　ActiveCell.Select
　Selection.End(xlDown).Select

　MsgBox Selection.Address

End Sub

データ行の最初のセルを指定すると最終番地が表示されます。

このやり方は上から順にセルが空白かどうかを調べてますので、途中に空白があるとその前のセル最終セルとされてしまいます。　

途中に空白が無い時か、その空白行を削除してから使う必要があります。

-----------------------------

②　途中空白あってもOKなcode

Option Explicit

Private Sub CommandButton1_Click()

　Cells(1048576, 3).Select
　Selection.End(xlUp).Select

　MsgBox Selection.Address

End



途中に空白があるとNGなら、下からチェックしてみたらどうだろう？　と言うアイディアに基づいております。

・ 一番最後のセルからデータがあるかどうか調べる-->　Cells(1048576, 3).Select

　　W10は1048576行が最後の行です。

・Selection.End(xlUp).Select--->最後のセル（C1048576）から上に順にデータがあるかどうか調べる

・見つけたセルがデータが入っている最終セルと分かります。