VBA code filter wissen meerdere kolommen

[Appievee]

Ik heb een werkblad met enkele simpele macro's die selecteren op een bedrijfsonderdeel

ActiveSheet.Range("$A$5:$BC$301").AutoFilter Field:=2, Criteria1:="HUT"

Nu werken die goed totdat iemand in een andere kolom al een filter heeft staan.
Door onderstaande code aan de macro toe te voegen lukt het mij wel om het werkend te krijgen.

    ActiveSheet.Range("$A$5:$BC$301").AutoFilter Field:=4
    ActiveSheet.Range("$A$5:$BC$301").AutoFilter Field:=5

Maar het zijn 36 kolommen dus zou ik aan elke macro 36 van bovenstaande regels moeten toevoegen.
Lijkt mij dat het korter kan, wie kan mij helpen?

Merci,

Albert

 

[Niels28]

With ActiveSheet.Range("$A$5:$BC$301")
.AutoFilter
.AutoFilter Field:=2, Criteria1:="HUT"
End With

Niels

 

[Appievee]

Dag Niels,

Je hebt me op weg geholpen. De 'End With' gaf nog problemen, maar met onderstaande werkt het.

Sub Macro_HUT()
'
' Macro_HUT Macro
'

    ActiveSheet.Range("$A$5:$BC$301").AutoFilter
    ActiveSheet.Range("$A$5:$BC$301").AutoFilter Field:=2, Criteria1:="HUT"
End Sub

Merci voor de snelle hulp