>>268
264 267です。
有難うございます。
Sub Macro1()のField:=6への置き換えでF欄へのフィルタ抽出ができました。

Sub Macro2()はSub Macro1()の抽出の幅を広げたくて相談させていただいたのですが、そううまくはいきまんせんね。（失礼しました。）

もう一つ教えて頂きたいのですが、Sub Macro1()の日付入力の際、キャンセルをするにはどうしたらよいのでしょうか。
一度マクロを起動するとなんらかの日付を入力するしかないようなので・・。