【VBA】指定範囲を並べ替えしたい

前提・実現したいこと

VBAで指定範囲を並べ替えしたいです。
この指定範囲というのが
Shift + ctrl + ↓(2回)
Shift + ctrl + →(2回)
で選択された範囲なのですが、初心者ゆえわからない状態です。
データ数はいつも変化するので、このショートカットキーで行った範囲を取得したい場合どうすればいいでしょうか？

マクロの記録ではどうしてもRangeで選択範囲ではなく、セルを指定する範囲となってしまいます。

該当のソースコード

マクロで記録していた内容を貼り付けます。操作としては
・最初にB3セルに置く
・Shift + ctrl + →(2回)
・Shift + ctrl + ↓(2回)
・並べ替え⇒以下のように設定してOK
最優先されるキー：列B
並べ替えのキー：値
順序：昇順

Sub Macro1

Sheets("A").Select
Range("B3").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select 
 ActiveWorkbook.Worksheets("A").Sort.SortFields.Clear
 ActiveWorkbook.Worksheets("A").Sort.SortFields.Add Key:=Range( _
     "B4:B2003"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
     xlSortNormal
With ActiveWorkbook.Worksheets("A").Sort
    .SetRange Range("B3:AI2003")
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

End Sub

＜追記＞
もう並べ替えしたものですがサンプルとしてキャプチャしました

radames1000

2020/09/02 01:45 編集

具体的にどのような表なのかサンプルを提示していただけませんか？ ※Selectの方法が他にないか気になったのでお願いしてみました。直接的な回答はttyp03さんのもので完了だと思います。

退会済みユーザー

2020/09/02 01:52

すみません。サンプルとしてキャプチャしたものを貼り付けます。

radames1000

2020/09/02 02:46 編集

サンプルをありがとうございます。

radames1000

2020/09/02 02:33

あ、B3が空白なんですね。なので二回しているのですね。

行動規範の内容に同意します

回答3件

vba
1Sheets("A").Select
2Range("B3").CurrentRegion.Sort key1:=Range("B3"), Order1:=xlAscending, Header:=xlYes

シンプルにこれでもOKでしょうか。
範囲指定にCurrentRegionを使ってます。

投稿2020/09/02 02:42

radames1000

総合スコア1925

ttyp03

2020/09/02 02:58

これで十分ですね。

行動規範の内容に同意します

図をみると「ログ集計」というセルが隣接してますので、CurrentRegionだとそのセルも含まれる可能性がありますね。
SpecialCells(xlLastCell) で最終セルを求めて範囲を決めるといいでしょう。

vba
1Sheets("A").Select
2Range(Range("B3"), Range("B3").SpecialCells(xlLastCell)).Sort _
3    key1:=Range("B3"), Order1:=xlAscending, Header:=xlYes

SpecialCells(xlLastCell) だと他に表があるとそれも含まれるので、下記の方がいいかな。

vba
1    Sheets("A").Select
2    Intersect(Range("B3").CurrentRegion, Range("B3:IV65536")).Sort _
3        key1:=Range("B3"), Order1:=xlAscending, Header:=xlYes

投稿2020/09/02 03:04

編集2020/09/02 03:12

hatena19

総合スコア34075

radames1000

2020/09/02 03:17

確かに隣接しているのでCurrentRegionではだめでしたね。ご指摘ありがとうございます。

行動規範の内容に同意します

ベストアンサー

選択範囲はSelectionになります。
なので、Selectionに対してSortしてあげればよいかと。
以下は一行目をヘッダー扱いとして、2行目以降をB列をキーに昇順に並べ替えます。

VBA
1Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlYes

投稿2020/09/02 01:35

ttyp03

総合スコア17000

退会済みユーザー

2020/09/02 02:31

回答ありがとうございます。すみませんどこに挿入すればいいのかわからなかったので再度質問させていただきます。 Sheets("A").Select Range("B3").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlYes で行けるかなと思ったのですが、全くソートしていなかったので教えていただいたコードをどこに挿入すればよろしいでしょうか？