Excel VBA文件不断增加

我有一个共享的Excel文件（xlsm），大约10个用户进入单元格a2 – x2，然后单击一个button（macros），将数据复制到最后一行。 macros的作品，但文件的大小不断增加了很多，我不知道为什么。 对不起，但我的vba是非常初学者，所以我查了一些在线代码。

Sub Submit() Application.CommandBars("Reviewing").Controls("&Update File").Execute 'this should save the file and then copy the data and paste to last row ActiveWorkbook.Save With ThisWorkbook.Sheets("Sheet1") If Application.WorksheetFunction.CountA(.Cells) <> 0 Then LastRow = .Cells.Find(What:="*", _ After:=.Range("a5"), _ Lookat:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row Else LastRow = 1 End If .Cells(2, 25) = Environ("USERNAME") .Range("A2:Y" & LastRow).Copy End With 'sheet to paste too With ThisWorkbook.Sheets("Sheet1") If Application.WorksheetFunction.CountA(.Cells) <> 0 Then LastRow = .Cells.Find(What:="*", _ After:=.Range("A1"), _ Lookat:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row Else LastRow = 1 End If .Range("A" & LastRow + 1).PasteSpecial xlPasteValues End With With Worksheets("Sheet1") .Range("B2:F2").ClearContents .Range("H2:Q2").ClearContents .Range("S2:Y2").ClearContents End With ActiveWorkbook.Save End Sub