合并2个列表时删除重复项

Question

现在，我已将此代码编码为加入来自2个独立电子表格的2个列表。我需要一种使这些合并而不重复的方法。显示的代码是我现在用来合并两个列表的代码。

Sub Copy_Alternatives()

Worksheets("Repair Replacement Recom").Range("A:C").Value = Worksheets("CNA eTool Alternatives").Range("A:C").Value

End Sub

Sub Copy_Paste_Range()

Dim lNewRow As Long
Dim lDataRow As Long

ThisWorkbook.Activate

lNewRow = Worksheets("CNA eTool Addit. Alternatives").Cells(Worksheets("CNA eTool Addit. Alternatives").Rows.Count, "H").End(xlUp).Row

lDataRow = Worksheets("Repair Replacement Recom").Cells(Worksheets("Repair Replacement Recom").Rows.Count, 1).End(xlUp).Row
lDataRow = lDataRow + 1

Worksheets("CNA eTool Addit. Alternatives").Range("H2:J" & lNewRow).Copy
Worksheets("Repair Replacement Recom").Range("A" & lDataRow).PasteSpecial Paste:xlPasteValues

End Sub

我希望重复项由“维修替换建议”表中的B列确定，并且要显示的行是“ CNA eTool Addit.Alternatives”表中的列表。