Excel2000 VBA 選択セル列の入力のある最終行の下に移動

Excel2000 VBA  選択セル列の入力のある最終行の下に移動

Sub 選択列の最終行の下に移動()
'
'選択セル列の入力の有る最終行＋１に移動
'
    ActiveSheet.Select
    Cells(Rows.count, Selection.Column).End(xlUp).Select
    Selection.Offset(1, 0).Select '下に移動
End Sub