エクセルVBA 並び替え セルの色なし 下

こんにちは。
お世話になります。

エクセルで、並び替え→セルの色→セルの色なし→下

というコマンドを、W列とAA列で行いたいです。

マクロ記録を借用すると、動いたのですが、不明な点も多く、もっときれいになるような気がします。

ご教授頂ければ幸いです。

よろしくお願い致します。

＞条件
W列とAA列で、セルの色がないものを下にしたい。
範囲は、CからAA列を動かしています。

下記の（a.）は、マクロ記録で、active sheetと示されたものを、(a)という名前を付けて複数のシートを動かしているだけでございますので、気になさらないでください。


＞マクロ記録されたもの

Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Range("C6:AA6").Select
Range("AA6").Activate
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Range("C6:AA80").Select
Range("AA6").Activate
Range(Selection, Selection.End(xlUp)).Select
ActiveWindow.SmallScroll Down:=-27
a.Sort.SortFields.Clear
a.Sort.SortFields.Add Key:=Range("W6:W80"), _
SortOn:=xlSortOnCellColor, Order:=xlDescending, DataOption:=xlSortNormal
a.Sort.SortFields.Add Key:=Range("AA6:AA80"), _
SortOn:=xlSortOnCellColor, Order:=xlDescending, DataOption:=xlSortNormal
With a.Sort
.SetRange Range("C5:AA80")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

質問者からの補足コメント

• googoo900様
  ご質問ありがとうございます。
  ご提案頂いたＢのタイプで、W列とAA列以外のセルに色がないものを「行単位」で下にしたい。
  
  でございます。
  早速のご対応、感謝致します。
  よろしくお願い致します。

    補足日時：2016/02/29 07:19

No.2 ベストアンサー 回答者： CoalTar 回答日時： 2016/02/29 07:37

>ActiveWindow.SmallScroll Down:=-27

バージョンの違いなどで詳しくわかりませんが、
少なくとも上記以前の部分は(上記含め)不要です

この回答へのお礼

CoalTar様
早速のご返信ありがとうございます。
おっしゃる通り、ご指摘いただいた箇所から上を除いても正常に作動しました。
ありがとうございます。

お礼日時：2016/03/01 22:14

No.1 回答者： googoo900 回答日時： 2016/02/29 01:17

確認させてください。

やりたいことは、下記のA、Bのどちらでしょうか？

A　W列とAA列で、セルの色がないものを下にしたい。つまりW列、AA列以外はそのまま。
B　W列とAA列にセルの色がないものを、『行単位で』下にしたい。

この回答へのお礼

早速のご対応ありがとうございます。
補足に回答させて頂きました。

お礼日時：2016/03/01 22:15