Кнопка VBA, чтобы проверить wb 1 против wb 2, добавить записи, если они отсутствуют (без дубликатов)

Question

У меня две рабочие тетради. Я хотел бы создать кнопку, чтобы сравнить активный лист с листом другой книги только по данным в столбце 1. Если совпадений нет, скопируйте данные в столбце 1 активного листа и добавьте во вторую рабочую книгу. Если есть совпадение, никаких действий не требуется.

Могу ли я помочь с моим кодом? Я новичок в VBA, поэтому спасибо за ваше терпение ..!

Sub SyncWkbk()


Dim LR_AD, LR_PA As Integer
Dim AD, PA As Workbook
Set AD = Application.Workbooks("AD.xlsm")
Set PA = Application.Workbooks("PA.xlsm")
Dim IsMatch As Boolean
LR_AD = AD.Sheets("Sheet1").ListObjects("Table1").Range("A:A").Find("*", SearchDirection = xlPrevious).Row
LR_PA = PA.Sheets("Sheet1").ListObjects("Table2").Range("A:A").Find("*", SearchDirection = xlPrevious).Row

For i = 2 To LR_AD 
IsMatch = False
For j = 2 To LR_PA 
If AD.Sheets("Sheet1").Cells(i, 1) = PA.Sheets("Sheet1").Cells(j, 1) Then

AD.Sheets("Sheet1").Rows(i, 1).Copy
PA.Sheets("Sheet1").Cells(j, 1).PasteSpecial xlPasteAll
IsMatch = True
End If
Next j
If IsMatch = False Then
AD.Sheets("Sheet1").Rows(i, 1).Copy
PA.Sheets("Sheet1").Cells(LR_PA + 1, 1).PasteSpecial xlPasteAll
LR_PA = LR_PA + 1
End If
Next i
End Sub