meeting agenda, using various filters

CODE For Filter

Sub Filter()

    Range("$D$1").CurrentRegion.AutoFilter

    ActiveSheet.Range("$D$1").CurrentRegion.AutoFilter Field:=4, Criteria1:=">=" & Range("B3"), _
        Operator:=xlAnd, Criteria2:="<=" & Range("B4")
        
    If UCase(Range("B5")) <> "ALL" Then
    ActiveSheet.Range("$D$1").CurrentRegion.AutoFilter Field:=2, Criteria1:=Range("B5")
    End If
End Sub