Вклейка диапазона данных листа к выпуску листа

Question

У меня есть код, который, похоже, не работает полностью.Смысл этого состоит в том, чтобы взять данные только из диапазона (не всей строки) с одного листа и вставить данные на другой лист.Это начинается с ввода слова «Переместить» в столбце.Проблема в том, что, кажется, просто вставьте диапазон в ту же строку на листе «В ожидании».

Кажется, я не могу это исправить, потому что он копирует данные диапазона, поэтому у меня возникают проблемы с поиском ответа на других похожих страницах.из Переполнения стека.Я прошу прощения, если это ответили в другом месте.

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" будет означать, что он не будет вставлять поверх той же строки в новом листе ...

Любая помощь будетс благодарностью.