作成依頼です。

シートAのA列にJANコード、B列に商品名が並んでいます。
JANと商品名はA1とB1、A2とB2…と対応しており、データの個数は都度変わります。

欲しいのは以下のVBAプログラムです。

1.シートBのA1のセルにシートAのA1のJANコードを入力し、シートの見出しを「当日の日付＋商品名B1」にする。
2.以下、JANコードの数だけシートBをコピーして同じ作業を繰り返す。

です。


その際、
1.シートAとBは同じファイル内にあります。
2.シートBにはA1を検索値としたvlookup関数が入っている。
3.見出しに記載される商品名はJANと対応する商品名。
4.日付は、出来れば「2016年05月29日」なら「160529」と表記させたい。
無理ならどのような表記でも大丈夫ですが、なるべく短く表記したい。


上のファイル自体を今から作るので、シートA、Bの名前は実際には変わります。
またシートBのJANを入力するセルも実際にはA1ではありません。
なので後から変えられるように、プログラムのどこがシートABの名前の部分でどこがシートBのA1を表しているのかも教えてもらえるとありがたいです。

分かる方いらっしゃいましたらよろしくお願いいたします。