Sub With_AutoFilter()
Dim cityArr, i As Long
cityArr = Array("Dallas", "Austin")
    Application.ScreenUpdating = False
    With Range("A1").CurrentRegion
        For i = LBound(cityArr) To UBound(cityArr)
            .AutoFilter Field:=3, Criteria1:=cityArr(i)
            .Offset(1).Copy Sheets(cityArr(i)).Cells(Rows.Count, 1).End(xlUp).Offset(1)
        Next i
        .AutoFilter
    End With
    Application.ScreenUpdating = True
End Sub