excel宏从excel表中获取特定格式的数据

我非常感谢你的帮助，让我的生活更轻松

我有以下格式的数据：

需要有一个宏才能在另一个表中进行转换，如下所示：

这是宏-

Sub perform()
Application.ScreenUpdating = False

Sheets("Sheet2").Range("A2:D50000").ClearContents

Dim rowcount, datacount, lastrow As Integer
rowcount = Sheets("Sheet1").Range("A500000").End(xlUp).Row
datacount = Sheets("Sheet1").Range(Sheets("Sheet1").Range("H5"), Sheets("Sheet1").Range("H5").End(xlToRight)).Count

Sheets("Sheet2").[A2] = "Code"
Sheets("Sheet2").[B2] = "Ref"
Sheets("Sheet2").[C2] = "Amount"
Sheets("Sheet2").[D2] = "Quantity"


For i = 5 To rowcount

lastrow = Sheets("Sheet2").Range("A500000").End(xlUp).Row + 1
Sheets("Sheet2").Range("A" & lastrow & ":A" & lastrow + datacount - 1).Value = Sheets("Sheet1").Range("A" & i).Value
Sheets("Sheet1").Range("H4:L4").Copy
Sheets("Sheet2").Range("B" & lastrow & ":B" & lastrow + datacount - 1).PasteSpecial Transpose:=True
Sheets("Sheet1").Range("H" & i & ":L" & i).Copy
Sheets("Sheet2").Range("C" & lastrow & ":C" & lastrow + datacount - 1).PasteSpecial Transpose:=True

Sheets("Sheet1").Range("G" & i).Copy Sheets("Sheet2").Range("D" & lastrow)

Next i

Application.ScreenUpdating = True
End Sub

---

这个数据1是基本数量，对吗？