Hi, the below code to extract data by Advance filter doesnt work for me, it extracts only the header row. Any help please?
Sub FilterExtract()
Sheets("Filter").Select
Range("A6").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Clear
Sheets("RawData").Range("Table1[#All]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Sheets("RawData").Range("J1:L2"), CopyToRange:=Sheets("Filter").Range("A6"), Unique:=True
Columns.AutoFit
Sheets("Filter").Range("A6").Select
End Sub
Bookmarks