'A列の最終行を選択する例です。
Sub A列の最終行()
Range("A65536").End(xlUp).Select
End Sub
'使用済みセル範囲を選択する例です。
Sub 使用済みのセル範囲()
ActiveSheet.UsedRange.Select
End Sub
'A1:A10の範囲内の可視セル範囲を選択する例です。
Sub 範囲内の可視セル範囲()
Range("A1:A10").SpecialCells(xlCellTypeVisible).Select
End Sub
'A1:A10の範囲内の定数(数式ではないの値)を消す例です。
Sub 範囲内の定数だけを消す()
Range("A1:A10").SpecialCells(xlCellTypeConstants).ClearContents
End Sub
'A1:A10の範囲内の定数(数式ではないの値)の隣の列を選択する例です。
Sub 範囲内の定数の隣の列()
Range("A1:A10").SpecialCells(xlCellTypeConstants).Offset(, 1).Select
End Sub
'アクティブセルのある行を選択する例です。
Sub アクティブセルのある行()
ActiveCell.EntireRow.Select
End Sub
'アクティブセルのある行の先頭のセルを選択する例です。
Sub アクティブセルのある行のA列()
ActiveCell.EntireRow.Resize(, 1).Select
End Sub