Autofilter Array Criteria

Can anyone know what is the problem in my code?
Here's the result when I run my program;

Capture.PNG
12.PNG

Private Sub CommandButton1_Click()

Dim ws1 As Worksheet


    Application.Workbooks("WU_P1 FOR MACRO.xlsb").Activate
    Set ws1 = Sheets("Sheet1")
  

    With ws1
    .AutoFilterMode = False
    .Range("I1:I" & .Range("I" & Rows.Count).End(xlUp).Row).AutoFilter Field:=1, Criteria1:=Array("#N/A", "0000000", "6XXXXXX", "DUMMY", "DUMMY BUILD", "N/A", "NA", "STAMSDUMMY", "TBA", "TBD", ""), Operator:=xlFilterValues
    .AutoFilter.Range.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Cut
    .AutoFilterMode = False
    End With
    
    Application.Sheets("Sheet3").Select
    Range("A2").Select

    Selection.Insert Shift:=xlDown
    Application.ScreenUpdating = True
    
End Sub

cut method would not work with filtered cells, you need to use delete instead.