【マクロ・VBA】シート間のデータをマッチングして基データのシートに無いデータを追加して色をつける

Sub シート間マッチング()

With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
.Calculation = xlCalculationManual
End With

'基_アクティブシート
Dim wb1 As Workbook
    Set wb1 = ThisWorkbook
Dim ws1 As Worksheet
    Set ws1 = wb1.ActiveSheet
Dim LastCol1 As Long
    LastCol1 = ws1.Cells(1, Columns.Count).End(xlToLeft).Column

'相手_アクティブシートの右のシート
Dim wb2 As Workbook
    Set wb2 = ThisWorkbook
Dim ws2 As Worksheet
    Set ws2 = wb2.ActiveSheet.Next
Dim LastCol2 As Long
    LastCol2 = ws2.Cells(2, Columns.Count).End(xlToLeft).Column
    

Dim LastRow1 As Long
    LastRow1 = ws1.Cells(Rows.Count, 1).End(xlUp).Row
Dim LastRow2 As Long
    LastRow2 = ws2.Cells(Rows.Count, 1).End(xlUp).Row

Dim i As Long
Z = LastRow1 + 1 'B列の追加する行を指定します。

For i = 2 To LastRow2
      
        Set A = ws1.Columns("A").Find(What:=ws2.Cells(i, "A"), LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
                                                                  'B列とF列を比較する。
        
        If A Is Nothing Then                            
                ws1.Cells(Z, "A") = ws2.Cells(i, "A")     
                ws1.Cells(Z, "B") = ws2.Cells(i, "B")     
                ws1.Range("A" & Z).Interior.ColorIndex = 6  ）
 
                Z = Z + 1 '追加する件数毎に＋１加算
        End If
    
Next

With Application
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
.Calculation = xlCalculationAutomatic
End With

MsgBox "完了"
End Sub