Filter_VBA

Evening,

I am trying to learn the VBA for creating filters. For example on the attached spreasheet, column Q has various 4 digit #'s, but I would like to know a macro that filters only 5601, 5801, 6001, 6201, 6301, 7701, 8801, 9201, 9501. I have utilized the record macro to get the below code:

But the issue is the range. The range of data may change from week to week, it will not always end at row 327. How would i adjust the code so it will look at all the data that is in column Q (which again, could change from week to week) yet still filter only what I want?

Selection.AutoFilter
    ActiveSheet.Range("$Q$1:$Q$327").AutoFilter Field:=1, Criteria1:=Array( _
        "5601", "5801", "6001", "6201", "6301", "7701", "8301", "8801", "9201", "9501"), _
        Operator:=xlFilterValues
End Sub

Thanks so much for the guidance!
Alec

Some thing like this..........

Sub Filter_test()
Dim rAfArea As Range, vAfField As Variant, sAfHeader As String

sAfHeader = "DC"
Set rAfArea = Range("A1").CurrentRegion
vAfField = Application.Match(sAfHeader, rAfArea.Rows(1), 0)

If TypeName(vAfField) = "Error" Then
    MsgBox "Filter Column Not Found", vbCritical, "Missing Column Heading"
    Exit Sub
End If
    
rAfArea.AutoFilter Field:=vAfField, Criteria1:= _
    Array("5601", "5801", "6001", "6201", "6301", "7701", "8301", "8801", "9201", "9501"), _
    Operator:=xlFilterValues

End Sub