将范围数据表粘贴到工作表问题

Question

我有一个似乎无法正常工作的代码。这样做的目的是仅从一个工作表的某个范围（而不是整个行）中获取数据，然后将数据粘贴到另一工作表中。这是通过在列中键入单词“ Move”来启动的。问题在于，似乎只是将范围粘贴到“待处理”工作表的同一行上。

我似乎无法修复它，因为它的复制范围数据很大，所以我很难在Stack Overflow的其他类似页面上找到答案。如果在其他地方回答了这个问题，我深表歉意。

Sub Pending()
 Dim wp As Worksheet, wa As Worksheet, A As Long, p As Integer
  Set wp = Sheets("Pending"): Set wa = Sheets("Projects"):
    p = Application.Max(3, wp.Range("A" & Rows.Count).End(xlUp).Row + 1)
    For A = 5 To wa.UsedRange.Rows.Count
      If wa.Range("Q" & A) = "Move" Then
      wp.Range("A" & p).Resize(1, 19).Value = wa.Range("A" & 
      A).Resize(1,19).Value
     wa.Rows(A) = "": p = p + 1:
   End If
 Next A

End Sub

给我的印象是，“ p = p + 1”表示它不会粘贴到新工作表的同一行上...

任何帮助将不胜感激。