手作業になりますが、ピボットテーブルの機能を利用する方法があります。
下のページが参考になると思います。
【エクセル時短】クロス集計表をリスト形式に戻す方法。元データがなくてもピボットテーブルウィザードで解決！
https://dekiru.net/article/20383/

ピボットテーブルウィザードは　[Alt]　[D]　[P]　と押すと表示できます。
表の品番と品目は品番_品目(=A2&"_"&B2)といった具合に一つのセルにしてください。

品番_品目　日付・・・・といった表に編集して、先のページの手順でOKです。
表ができたら、品番品目をデータタブの区切り位置で分解します。

以上です。

品目、数量、日付　といったデータの場合(品番と品目が1つになっている場合)
一寸データを簡略化して、配列を使ってデータを書き直す例としてコードを書いてみました。
データ数などいい加減になっているところもありますが、こんな感じ・・・ということで・・・
参考になったら…という程度で細かなことは考えていませんのでご了承ください。

Sub test()

Dim myData As Variant
Dim i As Long, j As Long
Dim cn As Long
Dim myTable(1 To 210000, 1 To 3)

  myData = Worksheets("Sheet1").Range("B1:HB1000").Value
  With Worksheets("Sheet2")
  
  cn = 1
  For i = 2 To 1000 - 2 '約1000行
    
        For j = 1 To 210 - 2 '約210列数　HB列
        cn = cn + 1
      
        myTable(cn - 1, 1) = myData(i, 1)
        myTable(cn - 1, 2) = myData(i, j + 1)
        myTable(cn - 1, 3) = myData(1, j + 1)
      
      
        Next j
    
    Next i

    .Range("A2").Resize(210000, 3).Value = myTable

    End With

End Sub

検証する必要はないです。
この様な感じですので、もしコードを作成されるときは
参考にしてくださいといった気持ちです。

細かなところはいい加減なもんですので、
まじめに検証されるようなものではありません。時間がもったいないです。
例えば、For　で　-1　とか　-2　といった根拠のない減算をしていたりします。
このような感じのコードで動くのだとわかればよいなといった感じです。