EXCEL 2つのファイルのシートの値を
比較して、値を転記したい

マクロファイル.xlsmを開いて、book1.xlsx
を起動させます
book1.xlsxのA列の値とマクロファイル.xlsmの
A列の値を比較します
比較する値の範囲はA2からA500と
したいです

値が一致しなければ、何もしません

値が一致すれば、book1.xlsxのB列からF列の値を
マクロファイル.xlsmのB列からF列に転記したいです

一例ですと
book1.xlsxのA列が1566、B列からF列が
ZZだとします
マクロファイル.xlsmのA列が1566、B列からF列が
98だとしましたら、B列からF列が、ZZとなります

一致する場合、同じ値が複数ある（重複する）場合が
ありますが、その個数は一緒です。個数自体は決まっていませんが、2個なら2個になりますし、3個なら3個になります。

Sub macro25()

Dim filePath As String
Dim wb As Workbook
Dim ws As Worksheet
filePath = ThisWorkbook.Path

Set wb = Workbooks.Open(filePath & "\book1.xlsx", 0, False)
Set ws = wb.Sheets(1)

End Sub

book1.xlsxを開いて、コピーするシートを選択するまで出来ましたが、
それ以降わかりません

重複する場合、VBAで行うにはどのよう
にしたら良いでしょうか？

ご教示ください