How to have Dynamic Range for Advance Excel Filters in VBA

[abdulads]

Hi All,

I have this recorded Macro wanted to change there range of the table to dynamic how can i do it.

Sheets("Cats_da").Range("A3:P164704").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("D Day").Range("D1:S3"), CopyToRange:=Range("A1" _
), Unique:=False

 

[Michael M]

You mean something like this ??

Dim lr As Long
lr = Sheets("Cats_da").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Cats_da").Range("A3:P" & lr).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("D Day").Range("D1:S3"), CopyToRange:=Range("A1" _
), Unique:=False

 

[abdulads]

Prefect Thank you so much Genius Thank you so so much...

 

[Michael M]

Glad to help...