品目、数量、日付　といったデータの場合(品番と品目が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