ＶＢＡ セルの値と同じ、別ブックのシートに貼付け

質問

いつもお世話になります。

シートをコピーし、閉じたブックのシートに貼付けしたいのですが、詳細は次の通りです。

ブックＡ…マクロがあり、Sheet1のA1プルボタンから店舗名を選択すると、その店舗の在庫が表示されます。
ブックB…シートが100枚ほどあり、シート名が各店舗名になっています。

ブックAを開き、A1から店舗を選択し、在庫数を手入力で修正し、マクロボタンを押したら、ブックB（閉じた）の同じシート名に、値で貼付ける

ブックAは上書きしないで閉じる

決算時期で困っています。よろしくお願いします。

回答No.1

米沢 栄蔵（@YON56）

質問内容がよく理解できませんので、
次のように解して答えます。
<質問内容>
ブックＡ…マクロがあり、Sheet1のA1プルボタンから店舗名を選択する→A1の値=店舗名
在庫数を手入力で修正し→セルA2～セルA10に新データが入力されている。
ブックBのPath=C:\AAA\BBB\ZZZ.xls
ブックBのセルB1～セルJ1がブックＡのセルA2～セルA10に対応している。
ブックAは上書きしないで閉じる→ユーザーの操作に委ねる。
<マクロ>
Dim AA,BB
AA=Range("A1").Value
BB=ActiveWorkbook.Name
Workbooks.Open Filename:= "C:\AAA\BBB\ZZZ.xls"
Sheets(AA).Select
Range("B1")=Workbooks(BB).Sheets(Sheet1).Range("A2").Value
Range("C1")=Workbooks(BB).Sheets(Sheet1).Range("A3").Value
・・・
Range("J1")=Workbooks(BB).Sheets(Sheet1).Range("A10").Value
ActiveWorkbook.Save
ActiveWorkbook.Close False

お礼

YON56さん

ご教示いただきありがとうございました。
なんとかできました。

補足

説明不足で申し訳ございません。補足させていただきます。

A1の値=店舗名　です。

ブックAのSheet1のA列に商品名、B列に在庫数、C列が空欄でそこに手入力で在庫数を入力します。
選択する店舗によって、在庫アイテム数が異なり、A～C列の値がある最下行もことなります。

したがって、Sheet1をシートごとコピーし、ブックBの店舗名シート(A1の値=店舗名)にまるまる値で貼付けをしたいと考えています。