VBAで指定した1行の特定範囲内で列方向に並べ替えしたくても全然動かなかったの、
Orientation:=xlSortColumnsじゃなくてOrientation:=xlLeftToRightだった。こんなの方向が分かれば良いんだから統一してよ。