Selecting criteria range in advanced filter; cannot define control shift down on c1

[Tardisgx]

[FONT=&quot]If recorded control shifting down on C1 VBA creates a defined cell range instead of a dynamic one[/FONT]
[FONT=&quot]Range("C1:C13"), CopyToRange:=Range("D1"), Unique:=False[/FONT]
[FONT=&quot]So I tried to insert VBA I thought would correct the issue because it works normally but got this error[/FONT]
[FONT=&quot]Wrong number of arguments or invalid property assignment[/FONT]
[FONT=&quot]'[/FONT]
[FONT=&quot]Application.CutCopyMode = False[/FONT]
[FONT=&quot]Application.CutCopyMode = False[/FONT]
[FONT=&quot]Application.CutCopyMode = False[/FONT]
[FONT=&quot]Application.CutCopyMode = False[/FONT]
[FONT=&quot]Range("A1:B24112").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _[/FONT]
[FONT=&quot]Range("c1").End(xlDown, CopyToRange:=Range("D1"), Unique:=False)[/FONT]
[FONT=&quot]The range cell vba code works; provides the appropriate output. How can I define that criteria selection in C1 to to be dynamic[/FONT]
[FONT=&quot]In case someone doesn't know what action i'm talking about, Data Tab, sort & filter group, advanced filter brings up this box and the" criteria range" box is the issue.[/FONT]
[FONT=&quot]https://imgur.com/a/lPr4Sos[/FONT]

 

[Peter_SSs]

Range("A1:B24112").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("c1").End(xlDown, CopyToRange:=Range("D1"), Unique:=False)

That is just (trying to) use the bottom value from column C, not the whole column. Parentheses misplaced too. Try

Range("A1:B24112").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("C1", Range("C1").End(xlDown)), CopyToRange:=Range("D1"), Unique:=False

 

[Tardisgx]

Thank you there was some formatting issue with getting this action to occur on the appropriate sheet when combined with my larger macro (It worked on its own) but ive got it all working now.

 

[Peter_SSs]

Thank you ... ive got it all working now.

Good that you could adapt it. Glad to help.