セルジャンプ
選択列の最下行セル
選択列の最下行セルにジャンプします。 
Sub KLastRow()
''選択列の最下行セルにジャンプ
    Cells(Rows.Count, ActiveCell.Column).End(xlUp).Select
End Sub
最終セル
シートの最終セルにジャンプします。
消し忘れや、ミスで残った意外なセルが見つかります。 
Sub KLastCell()
''シートの最終セルにジャンプ
    Cells.SpecialCells(xlCellTypeLastCell).Select
End Sub
top