如何通过vba将数据从一个工作表传输到指定单元格下面的另一个工作表？

Question

我正在根据条件格式自动从sheet3（＆＃34;引号＆＃34;）向sheet1（＆＃34; customers＆＃34;）和sheet2（＆＃34; prospect＆＃34;）传输数据，并且还希望在关闭文档时手动在sheet1（＆＃34; customers＆＃34;）和sheet2（＆＃34; prospect）上输入数据而不删除这些条目，并从下面的sheet3（引号）中传输数据根据条件在sheet1（＆＃34; customers＆＃34;）和sheet2（＆＃34; prospect＆＃34;）上手动输入的最后一个值。

这是我到目前为止的编码：

Private Sub Workbook_Open()
Dim i, LastRow
LastRow = Sheets("QUOTES").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
If Sheets("QUOTES").Cells(i, "d").Value = "C" Then
Sheets("QUOTES").Cells(i, "d").EntireRow.Copy Destination:=Sheets("CUSTOMERS").Range("a" & Rows.Count).End(xlUp).Offset(1)
End If
Next i
Sheets("PROSPECTS").Range("a2:i500").ClearContents
For i = 2 To LastRow
If Sheets("QUOTES").Cells(i, "d").Value = "P" Then
Sheets("QUOTES").Cells(i, "d").EntireRow.Copy Destination:=Sheets("PROSPECTS").Range("a" & Rows.Count).End(xlUp).Offset(1)
End If
Next i
For i = 2 To LastRow
If Sheets("PROSPECTS").Cells(i, "n").Value = "1" Then
Sheets("PROSPECTS").Cells(i, "n").EntireRow.Copy Destination:=Sheets("CUSTOMERS").Range("a" & Rows.Count).End(xlUp).Offset(1)
End If
Next i
End Sub

任何提示都将受到高度赞赏。

路易斯