VBA データの検索から貼り付け

Question

いつもご教授頂きありがとうございます。

初歩的な質問ですが、本やインターネットで調べても検討がつかないので、
ご教授頂けると助かります。

データA
A列：商品名
B列：重量

データB
A列：商品名
B列：貼り付けしたい場所

データAの商品名とデータBの商品名の並びが異なり、種類もバラバラとなっております。
また、データBはグループごとに分けられており、グループ毎に行間が空いています。

A列の商品名を上から順にB列の商品名を探し、人海戦術をしていました。

Sub 集計()
Dim Sh1 As Worksheet
Dim Sh2 As Worksheet
Set Sh1 = Workbooks("データA").Worksheets("sheet1")
Set Sh2 = Workbooks("データB").Worksheets("sheet2")
With Sh2
.Range("B1").Value = Sh1.Range("B5")
.Range("B2").Value = Sh1.Range("B3")
.Range("B3").Value = Sh1.Range("B7")

との様に順に行いましたが、数が膨大なのと行の入れ替えができないことで
困っております。

そこで、入力したい「データB」の商品名を「データA」にて検索し、ヒットしたら隣のセルの重量を「データB」へ転記していく構文を作りたいです。

よろしくお願いいたします。

Answer 1

ども＾＾

Vlookup関数で欲しい結果が得られると思いますが、
敢えてマクロですか？

とりあえず、
データの一覧のイメージと
今から入力したいシートのイメージ。
あと結果ののイメージを提示していただきたいです。

Answer 2

ども＾＾

Vlookup関数で欲しい結果が得られると思いますが、
敢えてマクロですか？

とりあえず、
データの一覧のイメージと
今から入力したいシートのイメージ。
あと結果ののイメージを提示していただきたいです。