如何使用值将指定单元格下的数据从工作表传输到另一个工作表？

Question

我正在自动将数据从Sheet3传输到工作表1，而工作表2则根据条件格式传输。

我还想手动在sheet1和sheet 2上插入数据。

问题：清除内容后，手动输入的数据将被删除

问题：

1）如何删除sheet1上的数据，以及手动输入数据下面的sheet2？

2）如何从sheet1或2上最后一个手动输入的行下面的sheet3传输数据。

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

Private Sub Workbook_Open()

    Dim i, LastRow
    LastRow = Sheets("QUOTES").Range("A" & Rows.Count).End(xlUp).Row
    Sheets("CUSTOMERS").Range("a2:i500").ClearContents
    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

谢谢