宏的复制粘贴功能出现空白区域

我录制了一个复制粘贴的宏，把A表格的数据粘贴到B表格，并在A表格创建了一个按钮来链接宏。在执行操作的时候，只有在B表格中执行宏，才能看到数据从A表格粘贴到了B表格。当切换在A表格中，无论是点击按钮，还是执行宏，都会发现两个表格莫名其妙插入了一堆表格，而没有数据粘贴过去。当然在录制宏的过程中确实有一个插入的操作。

代码如下：

function 保存()

{

Rows.Item("1:1").Select();

(obj=>{

obj.Insert(xlShiftDown, undefined);

obj.Select();

})(Rows.Item("1:22"));

Sheets.Item("手动排卦").Activate();

ActiveWindow.ScrollRow = 1;

Range("A1:X21").Select();

Selection.Copy(undefined);

Sheets.Item("档案储存").Activate();

Range("A1").Select();

ActiveSheet.Paste(undefined, undefined);

Rows.Item("21:21").RowHeight = 102;

ActiveWindow.ScrollRow = 8;

Rows.Item("21:21").RowHeight = 148;

ActiveWindow.ScrollRow = 1;

}