EXCEL_VBAメソッド

列全体を取得・選択する－Columns・EntireColumn

参照：https://www.relief.jp/docs/excel-vba-get-entire-column.html
Range("A:A").Select
Range("A1").EntireColumn.Select
Cells(1, 1).EntireColumn.Select
ActiveCell.EntireColumn.Select
Columns(1).Select

EXCEL最後行を取得

Sh_S.Activate
MaxRow = ActiveCell.SpecialCells(xlLastCell).Row
'第一行空白がない場合、下記で取得でOK
MaxRow = Sh_S.Cells(Rows.Count, 1).End(xlUp).Row
https://ogohnohito.hatenablog.jp/entry/20131212/p1

Findで検索したRangeの列番号を取得する

Range("A1:G7").Find("北海道").Row
MsgBox Range("A1:G7").Find("北海道").Column