Sub フィルター_指定期間のみを抽出する()
    
    開始日 = "2022/4/4"
    終了日 = "2022/4/6"
    
    Range("A1:C10").AutoFilter 1, "<" & 開始日 '指定日以前をフィルタ
    
    Rows("2:10").Delete '抽出行削除
        
    ActiveSheet.AutoFilterMode = False 'フィルタ解除

    Range("A1:C10").AutoFilter 1, ">" & 終了日  '指定日以降をフィルタ
    
    Rows("2:10").Delete '抽出行削除
    
    ActiveSheet.AutoFilterMode = False 'フィルタ解除

End Sub