编辑代码

Module Module1

Sub 保存表格()

Dim 产品数量 As Integer, 空白列 As Integer

产品数量 = WorksheetFunction.CountA(Sheets("出单表格").Range("a7:a100"))

空白列 = Sheets("订单记录").Range("A1").CurrentRegion.End(xlDown).Offset(1, 0).Row

Sheets("出单表格").Range("A7:E7").Resize(产品数量).Copy




End Sub

End Module