【VBA】フィルタ―抽出について（上手く抽出されない条件について）

前提・実現したいこと

VBA初心者です。
オートフィルタ―抽出の際に毎回抽出されない抽出条件があり、原因をご教示いただけますでしょうか。

■実行手順の概要
①マクロExcelを起点として、抽出したいExcelファイルを取り込む。
②セルに記載された抽出条件でフィルタ―抽出
③抽出したデータを新規ブックにコピーしてPDF保存
④上記②～③をループ処理

発生している問題・エラーメッセージ

マクロ実行は問題なく作動するのですが、毎回フィルタ―で抽出されない抽出条件があります。

■抽出されない条件
整数6桁

その他の抽出条件としては、アルファベット＆数字を含む6桁もあります。
ただ全ての整数6桁が抽出されない訳ではなく、問題なくフィルタ―抽出される整数6桁もあります。
全部で37回ループ処理を行うのですが、特定の整数6桁（4つ）のみ抽出されません。

※抽出されない特定整数6桁を手動でフィルタ―に入力すると問題なく結果反映されます。

該当のソースコード

Sub Test

Dim OpenFileName As String, FileName As String
Dim InpSh As Worksheet, ExtSh As Worksheet
Dim i As Long, r As Long

'ファイルを選択＆開く
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")

    If OpenFileName <> "False" Then
        MsgBox "ファイルを開きます"
        Workbooks.Open OpenFileName
    Else
        MsgBox "キャンセルしました"
        Exit Sub
    End If

'変数代入
FileName = Dir(OpenFileName)
    Set InpSh = Workbooks(FileName).Sheets(1)
Set ExtSh = ThisWorkbook.Sheets(2)
r = ExtSh.Cells(Rows.Count, 2).End(xlUp).Row

'ループ処理
For i = 3 To r

  InpSh.Copy
  With Sheets(1)
  
      **'対象店コードでフィルタ―抽出**
      **.Range("A13").AutoFilter 15, Array(ExtSh.Range("F" & i, "XFD" & i)), xlFilterValues**

-省略-

End Sub