一段代码会生成大量不可见的数据

Question

我有一个excel文件，可以自动导入数据并将数据写入（2）不同的工作表。 为了减少使用的行数，我放了一小段代码，将我的数据复制并粘贴到一个单元格以上。

但是，过了一会儿（在Nextfree超过10之后），Excel变得异常缓慢，使用了100％的CPU核心，经过几次尝试后我终于停止了正在运行的脚本。当我保存文件时，我注意到它从100 KB增长到5 MB以上。

再次打开文件非常慢，当它打开时，响应很差。我找不到任何大量的数据，但在删除A行到D行之后，工作簿终于再次正确响应。

我想知道这一小段代码产生了大量数据，以及我可以在哪里找到数据。

Nextfree = Worksheets("Data").Range("A1:A" & Rows.Count).Cells.SpecialCells(xlCellTypeBlanks).Row
         If Nextfree > 10 Then
         Worksheets("Data").Range("A2:D20").Copy Worksheets("Data").Range("A1")