[已解决]代码求修改

fcdd

根据楼上大哥提供代码，自行修改。并解决闪屏问题·····
    Application.ScreenUpdating = False
    For i = 0 To 9 '复制1-10次
        Sheets("数据连接").Range("bg" & 5 + i * 13 & ":bn" & 14 + i * 13).Copy   '复制
        Sheets("送货单").Range("an" & 11 + i * 13).PasteSpecial Paste:=xlPasteValuesAndNumberFormats  '黏贴
    Next
    Application.ScreenUpdating = True
请大虾们提出跟好意见货建议提供学习