out of memory error 错误

如下面语句，当连续添加行数超过70行时就会报：out of memory error 这个问题怎么解决？？

for(let ksi =1 ;ksi<150 ; ksi++){ Rows.Item("6:6").Select() Selection.Copy(undefined) Rows.Item("7:7").Select()
Rows.Item("6:6").Copy(undefined)
ActiveSheet.Select(false)
Selection.Insert(xlShiftDown, undefined)
ActiveSheet.Select(false)
Application.CutCopyMode = false
Range(Cells(rowk,2),Cells(rowk,19)).ClearContents()
}