传输数据时自动突出显示重复项

Question

单击按钮时，将数据从一张纸（sheet1）传输到另一张纸（sheet2）并突出显示重复项。

我有以下代码将数据从工作表1复制到工作表2。如果添加新数据后工作表2中有重复项，我想添加一段代码以自动突出显示。

Private Sub CommandButton2_Click()

    On Error GoTo Err_Execute

    Sheet1.Range("A7:V7").Copy
    Sheet2.Range("A6").Rows("1:1").Insert Shift:=xlDown
    Application.CutCopyMode = False
      Selection.Delete Shift:=xlUp

Err_Execute:
    If Err.Number = 0 Then MsgBox "All have been copied!" Else _
    MsgBox Err.Description

End Sub