Sub Macro03() 'フィルターを降順/昇順でソートするマクロ

    With ActiveSheet
        '第1優先keyに関して
        Range("E6").Sort key1:=.Range("B6"), order1:=xlAscending, Header:=xlYes '昇順ソート
        'Range("E6").Sort key1:=.Range("B6"), order1:=xlDescending, Header:=xlYes '降順ソート
    
        '第2優先keyに関して
        'Range("E6").Sort key2:=.Range("C6"), order2:=xlAscending, Header:=xlYes '昇順ソート
        
    End With

End Sub