| 
    
     |  | >ソートの優先順位は1.O列(得意先コード)、2.E列(枝番)、3.D列(オーダー)、4.B列(日付)の順です。 書いてあるコードと、ソートする順番が違うように思いますが。
 2007で無い限り、上記条件でソートする場合、優先順位が下位の方の組み合わせからソートします。
 例えば、
 
 1回目
 第1キー
 D列
 第2キー
 B列
 で、ソート。
 
 2回目
 第1キー
 O列
 第2キー
 E列
 で、ソート。
 
 またこんな組み合わせでもいいです。
 1回目、
 第1キー
 B列
 で、ソート。
 
 2回目
 第1キー
 O列
 第2キー
 E列
 第3キー
 D列
 で、ソート。
 
 >  myRow2 = Cells(65536, "P").End(xlUp).Row
 >  myStrg = "B" & myRow1 & ":$P$" & myRow2
 >  ActiveCell = myStrg
 >  Selection.Sort Key1・・・・・・
 
 SElectionの部分を直接セルを指定してやった方がいいですね。
 
 >  myRow2 = Cells(65536, "P").End(xlUp).Row
 >  myStrg = "B" & myRow1 & ":$P$" & myRow2
 Range(myStrg).Sort Key・・・・
 
 |  |