将数组粘贴到工作表上需要很长时间

Question

我有这段代码

Set Destination = ThisWorkbook.Sheets("Catalogue").Range("a4")
Application.StatusBar = "Please be patient we are pasting the data into the  list"
With Destination
    .Resize(UBound(default_layout, 1), UBound(default_layout, 2)).Value = default_layout
End With

default_layout是一个大约65000 x 29的二维数组

我可以在大约5秒钟内以几种方式流失和操纵数据，但是将其恢复到工作簿大约需要90秒？

屏幕更新和计算都设置为关闭

任何想法如何提高速度