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