请教大侠为什么我的代码中paste无法生效

戒烟限酒

我修改别人的代码，用了paste，但系统提示无法生效，请教高手给改一下。

山菊花

Paste是工作表方法，应该改为：
sum.Paste
sum必须是当前工作表：
ThisWorkbook.Activate
sum.Activate
sum.Cells(myirow, 1).Activate
sum.Paste

仅复制数据，可用数组：
Sub Testing()
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Dim wb, ws, sum, mypath, myfile, sh, myirow, newirow, lastr, Arr()
    t = Timer
   
    Set sum = ThisWorkbook.Sheets("Summary")
    mypath = ThisWorkbook.Path & "\Consolidation\"
    myfile = Dir(mypath & "*.xlsx")
    Do While myfile <> ""
        Set wb = Workbooks.Open(mypath & myfile, 0)
        With wb.Sheets("sheet2")
            Arr = Range("a3:a6").Value
            myirow = sum.Range("A2").End(xlDown).Row + 1
            sum.Cells(myirow, 1).Resize(4, 1).Value = Arr
        End With
        wb.Close False
        myfile = Dir
    Loop
    Set wb = Nothing
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    MsgBox "Complete", , "Running Time: " & Format(Timer - t, "#0.000") & " " & "second"
End Sub

戒烟限酒

非常感谢！