数値データのコピーと移動をするVBAについて

画像上部のようにデータがあるときに、各行について 列Aについては、列Bから数値が入力されている列数分コピーを行い、列Bより右側の列に入力されている数値を列Bに移動させたいのです。 （画像左下部を参考にしていただけるといいと思います） ※画像がみづらくて申し訳ありません。 詳しい事は分かりませんが、データの正規化というものでしょうか・・・？ これをVBAを用いて行えたらと思いまして詳しい方からのアドバイスを頂けましたら幸いだと思い書き込みしました。よろしくお願いします。