数据追加汇总，报错1004

eh蝴蝶效应

做了一个简易订单系统，拟实现如图效果。但点击“保存”宏按钮，“订单明细”并不能追加到“订单记录”中，提示1004错误

1. Sub 保存订单记录()
   
2. 
   
3.     Dim 商品数量 As Integer, 销售记录空白行 As Integer
   
4.         
   
5.     商品数量 = WorksheetFunction.CountA(Sheets("订单明细").Range("d12:d17"))
   
6.     销售记录空白行 = Sheets("销售记录").Range("A1").CurrentRegion.End(xlDown).Offset(1, 0).Row
   
7.         
   
8.     Sheets("订单明细").Range("d12:g12").Resize(商品数量).Copy
   
9.     Sheets("销售记录").Range("d" & 销售记录空白行).PasteSpecial xlPasteValues
   
10.         
    
11.     Sheets("销售记录").Range("a" & 销售记录空白行).Resize(商品数量).Value = Sheets("订单明细").Range("g7").Value
    
12.     Sheets("销售记录").Range("b" & 销售记录空白行).Resize(商品数量).Value = Sheets("订单明细").Range("g8").Value
    
13.     Sheets("销售记录").Range("c" & 销售记录空白行).Resize(商品数量).Value = Sheets("订单明细").Range("d6").Value
    
14.         
    
15.     Call 重置表格
    
16.     MsgBox "订单保存完毕！"
    
17. End Sub

复制代码

向大咖求助

eh蝴蝶效应

错误行为6，不知道问题在哪里？？