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

End Sub