エクセル横列データを縦列に変換（再質問）

以前に回答を頂きましたが、改めて質問させて頂きます。
（A列を追加しました。）

横列データを縦列に変換するVBAについてご教示下さい。

sheet1
　　A　　　　B　　　C　　　D　　E　　　F　　　G
1　1月４日　物件A　9:00　11:00　物件B　11:30　13:00
2　1月５日　物件C　9:00　11:00　物件D　11:30　13:00
3　1月６日　物件E　9:00　11:00
　　・
　　・

を以下のように変換

sheet2
　　A　　　　B　　　C　　　D
1　1月４日　物件A 　9:00　11:00
2　1月４日　物件B　11:30　13:00
3　1月５日　物件C　 9:00　11:00
4　1月５日　物件D　11:30　13:00
5　1月６日　物件E 　9:00　11:00
　・
　・

sheet1の横は最大で6件の物件名が入ります。

No.1 回答者： yucco_chan 回答日時： 2021/01/06 17:49

>以前に回答を頂きましたが

以前にどんな質問をしてどんな回答を得たのですか？
そして何故再度の質問に至ったのですか？