AutoFilter for current table instead of manually defining cells

[PatRichard]

I have a macro based on a page here

Sub Gen1()
Range("A4").Select
Selection.CurrentRegion.Select
Selection.AutoFilter
ActiveSheet.Range("$A$3:$AF$117").AutoFilter Field:=3, Criteria1:="1"
End Sub

It works great. However, my table of data is constantly growing. I'm struggling to find a way to automatically apply the filter to the current table instead of editing the macro each time to include the range. Can someone point me in the right direction?

 

[My Aswer Is This]

I think you should use A Table Name

Select the current range with your data and choose Insert Table from the Insert Menu on the Ribbon

As the range of the table expands the script takes this into consideration.

Use this script:

Sub My_Sub()
'Modified  12/29/2018  2:54:08 AM  EST
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=3, Criteria1:="1"
End Sub

 

[PatRichard]

Awesome. I already had made it a table, so using your code was all I needed. Appreciate the info.

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Awesome. I already had made it a table, so using your code was all I needed. Appreciate the info.