如果超出范围的单元格=已解决，则将一个单元格范围复制并粘贴到另一张工作表，然后删除该行

Question

我目前有多个工作表，用于存储付款记录（例如Pay和CantPay）。我正在尝试编写一个宏，该宏将在CantPay工作表上的列T =“ Resolved”的每一行上复制并粘贴单元格A：M（其中下一个空行是下一行，其中“ a”和row-number =空白）到“付款”表。

我要从中复制的工作表中的A：T列中有数据，但问题解决后就不需要N：T。因此，一旦我在单元格A：M中复制并粘贴了数据，我只想删除整行。我已经根据自己的了解编写了一些代码，并在网上查找了无效的代码。任何帮助将不胜感激。

谢谢

我尝试记录一个宏并编写自己的宏，但是看来我编写的宏正在删除存储所有列标题的行1。

Sub MoveToPay()

Dim CantPay As Worksheet: Set CopySheet = Sheets("Can't Pay")
Dim ReadyToPay As Worksheet: Set PasteSheet = Sheets("£ Pay")
Dim lr As Long
Dim S As String


Application.ScreenUpdating = False

Columns(20).AutoFilter 1, "Resolved"
With Range("a2", Range("M" & Rows.Count).End(3))
    .Copy PasteSheet.Cells(Rows.Count, 1).End(3).Offset(1)
    .EntireRow.Delete
End With
Columns(20).AutoFilter


Application.ScreenUpdating = True



End Sub