サンプルコード

コードコピー

Sub 最終行までを選択()
    
    '最終行を取得する
    Dim LastRow As Long
    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    'セルA2～最終行のB列までを選択する
    Range(Cells(2, "A"), Cells(LastRow, "B")).Select
    
End Sub
        

実行結果

セルA2～B9までを選択することが出来ました