VBAでオートフィルターで指定月のデータを抽出して表示させたいです。

Question

前提・実現したいこと

VBAでエクセルのマクロを作っています。
表にマクロでオートフィルターをかけて日付の入った項目列に指定月を抽出する機能を実装中に、以下のエラーメッセージが発生しました。

該当のソースコード

  Dim sales_s As Worksheet
  
'  Worksheets(1).Copy After:=Worksheets(Worksheets.Count)
  
  Set sales_s = targetWorkbook.Worksheets(1)
  

With sales_s

  Dim cnt_t As Long
  cnt_t = .Rows(1).Find("実績日").Column
  
    Dim cnt_last As Long
    Dim cnt_n As Long
    cnt_last = .Cells(Rows.Count, 1).End(xlUp).Row

    Dim fmt_01 As Date
    Dim fmt_02 As Date    
    .Range("a1").AutoFilter
    
    For cnt_n = 2 To cnt_last
    
        If .Cells(cnt_n, cnt_t) <> "" Then
        
            Range("A1").AutoFilter Field:=6, _
                         Criteria1:=">=" & CDate(Format(fmt_01, "2020/01/01")), _
                         Criteria2:="<=" & CDate(Format(fmt_02, "2020/01/31")), _
                         Operator:=xlAnd
        End If
        
         With ActiveSheet.AutoFilter.Filters(6)
　       MsgBox .Criteria1 & vbCrLf & .Criteria2
    End With
    
    Next cnt_n

End With

Exit Sub

結果：実績日の項目欄にオートフィルターは設定されているのですが、
何もデータが抽出されていません。（該当データは存在します）

試したこと

該当月の開始日付と終了日付を指定してdate型に変換しました。
MsgBoxにはシリアル値が表示されてしまいます。
シリアル値を日付で表示させれば、フィルターに引っかかると思いますが、
変換されません。

Answer 1

やりたかったのはこういうことですかね。

    Dim fmt_01 As Date
    Dim fmt_02 As Date
    
    fmt_01 = CDate("2020/01/01")
    fmt_02 = CDate("2020/01/31")
    
    Range("A1").AutoFilter Field:=6, _
                 Criteria1:=">=" & Format(fmt_01, "yyyy/mm/dd"), _
                 Criteria2:="<=" & Format(fmt_02, "yyyy/mm/dd"), _
                 Operator:=xlAnd

Comments

[t_ttt]

早速ありがとうございました。この段取りで実装すればうまく行けそうです。わかりやすい例で見やすかったです。ほんとにどうもです！