Apply filter - and make use of the data

MasterPrjid = "PRJ0006FT9"

' Apply filter

Workbooks(clarityrpojectsfilename).Sheets("Report_from_Clarity").Range("A:W").AutoFilter Field:=15, Criteria1:=MasterPrjid & "*"

'Copy the applied filter to the next sheet name 'copy', here only the data that got filtered is getting 'copied to the sheet 'copy'

Workbooks(clarityrpojectsfilename).Sheets("Report_from_Clarity").Range("A:W").Copy  _ Workbooks(clarityrpojectsfilename).Sheets("copy").Range("A:W")

'//
' to apply more filters, you just put apply filter command twice by mentioning different field numbers


Workbooks(clarityrpojectsfilename).Sheets("Report_from_Clarity").Range("A:W").AutoFilter Field:=15, Criteria1:=MasterPrjid & "*"
Workbooks(clarityrpojectsfilename).Sheets("Report_from_Clarity").Range("A:W").AutoFilter Field:=1, Criteria1:=SubPrjid & "*"



5/8/15:

Apply filter copy unique values in a column and paste them in another column:

ActiveSheet.Range("B2:B65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ActiveSheet.Range("J2"), Unique:=True