
Sub RiordinaAZ()
Columns("B:AK").AutoFilter
Range("B4:AK33").Sort Key1:=Range("D5"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Selection.AutoFilter
End Sub |
