セル位置

Sub 列の最後()
ActiveCell.End(xlDown).Select
End Sub

'----------------------------------------------------------------

Sub 列の先頭()
ActiveCell.End(xlUp).Select
End Sub

'----------------------------------------------------------------

Sub 行端()
ActiveCell.End(xlToRight).Select
End Sub

'----------------------------------------------------------------
Sub 行先端()
ActiveCell.End(xlToLeft).Select
End Sub

'----------------------------------------------------------------

Sub 範囲()
Range("D8", Range("D8").End(xlToRight).End(xlDown)).Select
End Sub

'----------------------------------------------------------------
Sub 最終行()
　　'以下の行のどれでも、データの最終行を返します
　　MsgBox ActiveCell.SpecialCells(xlCellTypeLastCell).Row
　　MsgBox ActiveCell.CurrentRegion.Rows.Count
　　MsgBox ActiveCell.End(xlDown).Row
　　MsgBox Range("A65536").End(xlUp).Row
　　MsgBox ActiveSheet.UsedRange.Rows.Count
End Sub