Macro with multiple advanced filters

[thecueballkid]

I am trying to build a macro that will run multiple advanced filters, 16 total. Each will be using criteria from one column in the raw data sheet (sheet1). This is what I have so far. When I run the first part by itself it runs fine but it does not work when I try to add the code for the additional filter.

"d1" and d"3" are the names of the other tabs.



Sub Macro5()
'
' Macro5 Macro
'

'
Sheets("Sheet1").Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("d1").Range("A1:A2"), _
CopyToRange:=Sheets("d1").Range("d1!Extract"), _
Unique:=False

Sheets("Sheet1").Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("d3").Range("A1:A2"), _
CopyToRange:=Sheets("d3").Range("d3!Extract"), _
Unique:=False


End Sub