セルを行方向にソートする。

VBAで指定した範囲のセルをソートをするにはSortメソッドを利用します。
Sortメソッドを利用したソートはデフォルトでは列方向へのソートなりますが、引数の”Orientation”を利用することでソートの方向を行単位（左から右向き）にすることができます。
キーとなる行を指定する時はRangeの引数に行数を含めた指定をする必用があります。
　※サンプルコードでは「A3」を指定しているので3行目ソートのキーにしています。
ですので、”Orientation”を利用してRange(”B:B”)のように列指定のみではソートが機能しません。

●セルのソート（行方向、キー：3行目/昇順）

'******************************************************************
'　行方向にソートする
'******************************************************************
Sub Main_SortRows()

    '3行目を
    Sheets("Sheet1").Range("A:E").Sort _
        Key1:=Range("A3"), Order1:=xlAscending, _
        Orientation:=xlSortRows

End Sub

　■実行前

　■実行結果