Auto Filter til last row

[Av8tordude]

Need help with this code to find last used row and filter. Thank you kindly

Range("A14:Q100").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("AT14:AV15"), UNIQUE:=False

 

[Yongle]

try

Dim rng As Range
Set rng = Range("A14", Range("A" & Rows.Count).End(xlUp)).Resize(, 17)

rng.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("AT14:AV15"), Unique:=False

assumes that there is a value in column A in EVERY row

 

[Av8tordude]

Thank you Yongle. Works as I expected and your assumption are correct.

 

[Yongle]

thanks for feedback