VBA筛选遇到的问题

№1熊

具体问题见图片，表格见附件。
请各位老师帮忙看看问题在哪里，谢谢！


Sub ETC筛选()
    ChDir ThisWorkbook.Path
    ChDrive ThisWorkbook.Path
              
    Workbooks.Open Filename:="6355etc.xls"
     Workbooks("6355etc.xls").Activate
     Sheets("多账户查询业务处理结果").Select
         ActiveSheet.Range("$A$1").AutoFilter Field:=6, Criteria1:= _
        "中银E路通业务过渡账户"
      With Worksheets("多账户查询业务处理结果")
      If .FilterMode Then
      Windows("ETC月报表.xlsm").Activate
          .AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy _
                  Worksheets("总表").[A1]
    End If
End With
   
    Workbooks("6355etc.xls").Close False
End Sub