Excel VisualBasic Script

Sub AutoFilterCustom()
    range("A1").autoFilter Field:=3, VisibleDropDown:=False
    range("A1").autoFilter Field:=5, VisibleDropDown:=False
    range("A1").autoFilter Field:=6, VisibleDropDown:=False
    range("A1").autoFilter Field:=7, VisibleDropDown:=False
    range("A1").autoFilter Field:=8, VisibleDropDown:=False
End Sub