我想改变快速书籍报告导出的导出布局

Question

我有一份报告，我是从Quick Books POS导出的。问题是布局对我来说不能用于执行我想要的分析。见图：

我想将该布局更改为以下布局，如图2所示：

我的本​​质是报告中有一个清晰的结构，其中A列中的每个日期字段在下面的行中至少有一个行顺序。然后，我想从列B切割每个行顺序行直到列K并将行粘贴到列M中并进一步。我一直循环着这个，直到我确定了A列中的下一个单元格并填写了日期。

然后我剪切了日期行并将其从表格中第一个可用的空白行开始。然后我想循环遍历所有订单行，并如上所述剪切和粘贴它们。作为最终结果，我应该在图纸2中为图纸中的所有线条布局。目前这是48k行。

我希望这一点很清楚，并附上附图。

我想帮助完成此任务的VBA编程代码。由于这项任务将定期完成。这就是我现在所拥有的。我一直在第14行遇到类型不匹配错误

Sub mcrCopyPaste()

Dim dbSheet As Worksheet
Set dbSheet = ThisWorkbook.Sheets("Test")
NextRow = ThisWorkbook.Sheets("Test").Cells(Rows.Count, 1).End(xlUp).Row + 1

Lr = dbSheet.Range("A" & Rows.Count).End(xlUp).Row

dbSheet.Activate

For x = 2 To Lr
If Cells(x, 1) <> "" Then

    ActiveSheet.Range(Cells("B", x + 1), Cells("K", x + 1)).Cut
    Selection.Cut
    ActiveSheet.Range(Cells("M", x)).Select
    Selection.Paste
    x = x + 1
Else:
    ActiveSheet.Range(Cells("A", x), Cells("K", x)).Select
    Seletion.Cut
    NextRow = ThisWorkbook.Sheets("Test").Cells(Rows.Count, 1).End(xlUp).Row + 1
    ActiveSheet.Range(Cells("A", NextRow)).Select
    Selection.Paste
    End If
    Next x

End Sub

提前致谢！

扎法