请老师帮调试打印按钮代码

jmhjgsxdq

点打印按钮，提示编译错误，End With没有With，请老师帮调试，谢谢啦！
Private Sub CommandButton1_Click() '打印销售单，并摘录发货记录
Dim je, aa, rng As Range
If MsgBox("是否把本单抄录到《送货记录》表中？", vbYesNo + vbInformation, "提示") = vbYes Then
    With Worksheets("送货记录")
        i = .[F65536].End(xlUp).Row + 1
        .Range("b" & i).Resize(, 4) = Array([i3], [d4], [g4], [g5]) '单号，姓名，电话，收货地址
        .Range("l" & i).Resize(, 5) = Array([i26], [i27], [i28], [d5], [D27]) '成交价，定金，下欠款，送货日期，业务经理
        .Range("f" & i).Resize(18, 6) = Range("c7:i24").Value '产品型号，件数，本店价，网上价，金额小计，备注        
        End With
End With
ActiveSheet.PrintOut
End Sub

taller

欲速则不达，代码一定要用缩进格式，不要图省事，代码调试的时候就要花费更多时间，If语句缺少End If