Как скопировать строку на другой лист на основе if then

Question

Я пытаюсь написать макрос, который скопирует строку на другой лист, если будут выполнены определенные значения. Существует несколько возможных мест назначения. Это то, что я собрал вместе, но я уверен, что это грязно. В принципе, если в столбце 14 есть «N/A», а в столбце 8 есть «APP», то скопируйте его на вкладку APP. И так далее для Энджи, Кэти и т.д.

Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("Reconciliation") 
Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("APP") 
Dim ws3 As Worksheet: Set ws3 = ThisWorkbook.Sheets("Angie") 
Dim ws4 As Worksheet: Set ws4 = ThisWorkbook.Sheets("Cathy") 
Dim ws5 As Worksheet: Set ws5 = ThisWorkbook.Sheets("Cory") 
Dim ws6 As Worksheet: Set ws6 = ThisWorkbook.Sheets("Curt") 

For Each i In ws1.Range("A1:A1000") 
    If ws1.Cells(i, 14) = "#N/A" Then 
     If ws1.Cells(i, 8) = "APP" Then 
      ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 2).End(xlUp).Row + 1) 
     End If 
    End If 
Next i 

Answer 1

Это будет копировать строку, если есть лист с соответствующим именем:

Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("Reconciliation") 
Dim ws 

For Each i In ws1.Range("A1:A1000").Cells 
    If ws1.Cells(i.Row, 14).Value = cverr(2042) Then 
      Set ws = Nothing 
      On Error Resume Next 
      Set ws = ThisWorkbook.Sheets(ws1.Cells(i.Row, 8).Value) 
      on error goto 0 
      If Not ws Is Nothing Then    
       i.EntireRow.Copy ws.Rows(ws.Cells(ws.Rows.Count, 2).End(xlUp).Row + 1) 
      End If 
     on error goto 0 
    End If 
Next i