根据类别复制数据行并附加到不同的工作表中

Question

我正在使用下面的代码来检查“主要”的数据类别＆amp; “备份”并将其以不同的方式粘贴到其他工作表中，基于“主要”类别将工作表和“备份”数据分隔为单独的工作表。

但问题是我每次运行代码时，都会反复检查开始并一次又一次地粘贴相同的数据。如何改进此代码以仅将新数据粘贴到工作表中。

Private Sub Chartupdate()

Dim lr As Long, lr2 As Long, r As Long

lr = Sheets("VCD CE 2 3 4 data").Cells(Rows.Count, "A").End(xlUp).Row
lr2 = Sheets("Code Prim VCD").Cells(Rows.Count, "A").End(xlUp).Row
lr3 = Sheets("Code Back VCD").Cells(Rows.Count, "A").End(xlUp).Row

For r = lr To 2 Step -1
If Range("B" & r).Value = "Primary" Then
    Rows(r).Copy Destination:=Sheets("Code Prim VCD").Range("A" & lr2 + 1)
    lr2 = Sheets("Code Prim VCD").Cells(Rows.Count, "A").End(xlUp).Row
End If
If Range("B" & r).Value = "Backup" Then
    Rows(r).Copy Destination:=Sheets("Code Back VCD").Range("A" & lr3 + 1)
    lr3 = Sheets("Code Back VCD").Cells(Rows.Count, "A").End(xlUp).Row
End If
Range("A1").Select
Next r

End Sub