Excel VisualBasic Script

Sub SimpleFilter1()
    Worksheets("Sheet1").Select
    range("A1").autoFilter
    range("A1").autoFilter Field:=4
End Sub