完成特定字段后，将数据从一个工作簿移动到另一工作簿

Question

我看过许多其他文章，但找不到能够解决我遇到的问题的可行解决方案。 首先，我是VBA的新手，我的意思是总计。 我有一个电子表格，当我们成功与某人联系时，会在其中输入日期。 然后，需要将这些数据剪切并粘贴到主归档中，以便我们证明可以在需要时调用它们。 我需要的是一种将数据所在的整行剪切并粘贴到将存储数据的工作簿上的方法。 我的计划是将7个工作簿放入一个母版中，但如果这样可以使事情变得更容易，则母版可以具有7个选项卡。 如果需要，我可以提供正在处理的电子表格。

我尝试了以下代码，但每次复制似乎都在主表上导致空白行（它们实际上显示为金色，但我认为与周围单元格的格式有关）。

Sub deleterow()

'Using autofilter to copy rows that have a completed date field to a new 
worksheet

Dim LR As Long
Range("A3").EntireRow.Insert Shift:=xlDown
LR = Sheets("Sheet1").Cells(Rows.Count, "M").End(xlUp).Row + 3
LR1 = Sheets("Sheet3").Cells(Rows.Count, "M").End(xlUp).Row + 1
With Sheets("Sheet1").Range("M3:M" & LR)
    .AutoFilter Field:=1, Criteria1:="<>", VisibleDropDown:=True
    .SpecialCells(xlCellTypeVisible).EntireRow.Copy 
Destination:=Sheets("Sheet3").Range("A" & LR1)
    .SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
End Sub