Excel VBA删除后删除空白行

我有这样的代码，将整行剪切和粘贴到另一张纸上，我如何删除现在出现在原始行被剪切的第一张纸上的空白行。

Set ASR = ActiveWorkbook.Sheets("Main") Set LS = ActiveWorkbook.Sheets("Exclusions") ASR.cells(i, "C").EntireRow.Cut Destination:=LS.Range("A" & LS.Rows.Count).End(xlUp).Offset(1) 

我希望从这个答案得到的这一行代码将删除空白行，但没有奏效

 ASR.cells.Delete Shift:=xlUp 

Answer 1

ASR.cells(i, "C").EntireRow.delete