フィルタオプションを使って検索条件数が変わる場合（マクロ）

質問

こんにちは。
今マクロでフィルタオプションを使ってデータを抽出するための手順を登録しています。
Excelの画面は

(1)社員番号　氏名　　部署

(2)社員番号　氏名　　部署
　　0001　　 田中
　　0002　　 佐藤
　　0003　　 鈴木
　　0004　　 高橋
となっているとします。上の(1)は検索条件を入力する場所です。(2)は検索元となるデータ及び検索したデータを表示させる場所です。
今登録したマクロを少しだけ修正して以下のようになっています。

Rows("25:25").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.AdvancedFilter action:=xlFilterInPlace, criteriarange:=Rows _
("1:5"), unique:=False
Range("A25").Select

今検索条件の部分はcriteriarange:=Rows("1:5")となっていますが、このままだと6行目以降に条件を入れた場合その条件はひっかからないようになってしまいます。
何行目まで条件を入れるかわかりませんが、時々によって6つだったり5つだったりすると思うのです。なので、条件が入っている行までを検索条件になるようにしたいのですが、どのようにすればいいのでしょうか？
マクロについてはかなり初心者ですが、業務上便利だと思い、どうしても作りたいので教えていただけないでしょうか？
説明が長くてすみません。
よろしくお願いします。

回答No.1

papayuka · ベストアンサー

検索値のタイトル(1)がA1から、検索元(2)がA25からあるとして

Sub Test()
　Range("A25").CurrentRegion.AdvancedFilter _
　　　　Action:=xlFilterInPlace, CriteriaRange:= _
　　　　Range("A1").CurrentRegion, Unique:=False
End Sub

こんな感じでどうでしょう？

お礼

papayukaさん、早速の回答ありがとうございました。
そして、できました！
ありがとうございました。
私の下手な説明にも関わらず。。。
あまりにも初心者の為すごく悩んだし、調べたのですが、意外にもすっきりしたものですね。もっと勉強したいと思います。
本当にありがとうございました！！！