マクロでマスタ表からフィルタ表と同じデータ抽出

質問

仕事で不定期ですが月に４～５回マスタ表が届きます。

その表から私の担当している部品のみ抽出するフィルタ表があり
素人ながら簡単な録画マクロで処理を行っています。
（マスタ表から抽出フィルタを使いフィルタオプションで抽出して新しいシートに出力）

但し、毎回マスタ表の最終セルの座標をマクロの編集で記載してから実行しており何とか自動で最終セルを認識してくれないかと色々調べましたが思うように動いてくれません。

マスタ表は毎データ行数列数はバラバラですが部品番号などの位置はフォーマットとして共通です。約１８０００行で列は８行～２３行
抽出用の担当フィルタは私が担当している部品で約５００点ほどで不定期メンテナンスしており増減します。

本来であれば現在のマクロのソースを記載したいのですが会社にファイルがあるので一旦書き込みだけいたします。

回答No.4

Prome_Lin

回答No.3です。

範囲指定した方が、精神衛生上、良い、という方のために。

Option Explicit
Sub Test()
Dim s1, s2, s3 As Worksheet
Dim f As Object
Dim i, r As Long
Set s1 = Worksheets(1)
Set s2 = Worksheets(2)
Set s3 = Worksheets(3)
r = s1.Range("A1").End(xlDown).Row
For i = 2 To s2.Range("A1").End(xlDown).Row
Set f = s1.Range("A1:A" & r).Find(s2.Cells(i, 1).Value)
s1.Range("A" & f.Row & ":E" & f.Row).Copy s3.Range("A" & i)
Next i
End Sub

特別、説明は必要ないと思います。

前提条件等は、すべて「回答No.2」と同じです。