I have added a sort to an advancedfiltercopy, but it doesn't do the sort. any ideas?
Code:
Range("A1:i48").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"j1:j2"), CopyToRange:=Range("a201:b201"), Unique:=False
Range("a201:b201").Sort _
Key1:=Range("b201"), _
Order1:=xlAscending, _
Header:=xlYes, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom