エクセルVBAでオートフィルターを設定する

Sub オートフィルター()
    Worksheets(2).Range("A1").AutoFilter Field:=4, Criteria1:="東京"
End Sub