EXCEL的VBA一个小问题

以下这段是网上一个朋友帮我写的,我自己不懂,现在想改到一下,望高手指点.
现在想保存出库单前,清除B3和A6至A18,B6:B18,C6:C18,D6:D18,E6:E18,F6:F18,G6:G18,H6:H18,I6:I18,J6:J18
K6:K18,M6:M18单元格里的数值.以下为原程序:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim a, aa As Integer
Dim b, c As String
a = Workbooks("出库单.xls").Sheets("出库单").Range("n2").Value
c = Workbooks("出库单.xls").Sheets("出库单").Range("n2").Text

Workbooks.Open ThisWorkbook.Path & "\格式套用文档.xls"
Workbooks("出库单.xls").Sheets("出库单").Copy Before:=Workbooks("格式套用文档.xls").Sheets(1) '复制需要的工作表

Workbooks("格式套用文档.xls").Sheets("出库单").Cells.Copy
Workbooks("格式套用文档.xls").Sheets("出库单").Cells.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Work

懂EXCEL的VBA编程的进来，一个小问题 EXCEL VBA中 给数组赋值的一个小问题 excel VBA小问题 关于一个excel vba编程的问题 Excel VBA的一个基本问题 excel vba 的问题 EXCEL的VBA问题 excel vba ontime的问题 excel中VBA的问题 简单的EXCEL VBA问题！