Advanced filter criteria

[VBA_Newbie123]

Hi,

I am attempting to create a macro that will define the criteria that will filter my data. below is what I have started with but not sure where to go with it

Sub advanced_filter()'
' advanced_filter Macro
'


'
    Columns("A:A").Select
    Range("A1:A33508").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Sheets("Collar").Range("B1:B35"), Unique:=False
End Sub

At the moment the criteria range including header is B1:B35 so I have 34 names to filter by however this list varies between 1 name and up to 100 names. Is there a way to define the criteria by simply going to the last filled cell in the B column?

Thanks in advance,