列全体を取得する

Sub SampleStatement()
ActiveCell.EntireColumn.Select
End Sub

行全体

ActiveCell.EntireRow.Select