将所选单元格的行移动到另一个工作表无法正常工作

我得到了一个Excel文件，在这里我添加了一些表格。 到现在为止还挺好。 现在我尝试着用macros来移动（select，剪切，粘贴在其他工作表上，并在之前删除）。 它第一次工作正常，但是当我第二次尝试时，它不再工作。 它仍然会从第一个工作表中删除数据，但是会将其覆盖在第二个工作表上。 这是我的代码：

Sub moveToDone() ' ' moveToDone Makro ' ' Tastenkombination: Strg+m ' ActiveCell.EntireRow.Select Selection.Cut Sheets("erledigt").Select Range("A5").Select ActiveSheet.Paste Range("C8").Select Sheets("Planung").Select Dim unusedRow As Long unusedRow = Cells.SpecialCells(xlCellTypeLastCell).Offset(1, 0).Row Selection.Delete Shift:=xlUp End Sub 

正如你所看到的，我从选中的单元格中获取行，然后剪切它，切换到第二个名为“erledigt”的工作表并粘贴到第一个空行上。 然后我删除它的第一个。 但正如我所说。 它在第一次正常工作，但它只是覆盖前一个。

Answer 1

你的问题已被@ASH修复

但是我认为不需要删除源代码行。
你可以避免使用。select这里：

  With Sheets("erledigt") ActiveCell.EntireRow.Cut .Range("A" & .Range("A" & .Rows.Count).End(xlUp).Row + 1) End With