エクセル VBA 時系列に横一列に並んだデータを 縦に整頓するマクロを教えてください。

VBAについて質問です。
時系列に並んだ横一列のデータを縦に時系列と種別に分けて
縦に整理したいのですがどなたか、VBAで処理する方法を
ご存知でしょうか？
言葉で説明できないので画像を添付しました。
よろしくお願いします。

質問者からの補足コメント

• 

  画像が小さいので拡大すると
  時間 品名 個数 種類 価格
  10:00 りんご 3 大 中 小 100 50 20
  10:10 梨 5 大 中 中 大 小 80 40 40 80 10
  10:15 イチゴ 4 大 大 小 中 150 150 70 100
  10:30 りんご 2 大 小 100 20
  
  ＜マクロ実施後＞
  
  時間　 品名 　個数 種類 価格
  10:00 りんご 1 大 100
  10:00 りんご 1 中 50
  10:00 りんご 1 小 20
  10:10 梨 　　　１　大 80
  10:10 梨 　　　1　 中 40
  10:10 梨 　　　1　　大　 40
  
  としたいのです。

    補足日時：2017/11/02 04:43

No.2 回答者： めぐみん_ 回答日時： 2017/11/02 06:06

No.1です。

種類の数は【大・中・小】の３つしかありませんか？

と追加致します。

この回答へのお礼

早々の回答ありがとうございます。
やっぱり、難しいですか。
種類の数は大中小だけでなく、様々な種類、があります。
たとえは、大１、大２・・・・・
要は、個数の数に応じて、大中小の数が横一列に存在します。

お礼日時：2017/11/02 07:02

No.1 回答者： めぐみん_ 回答日時： 2017/11/02 06:00

もし補足通りなら難しいね。

10:10 梨 　　　１　大 80
10:10 梨 　　　1　 中 40
10:10 梨 　　　1　　大　 40

上の表を見て考えると

10:10 梨 　　　2　大 80
10:10 梨 　　　1　 中 40

こうなると思うのですが？
【1　大　40】とはどのように読み取れば、この結果を得られるのか、明確な条件提示が必要かと。
例えば【大】であっても【８０】の時もあれば【４０】の時もあると言うことですか？