【マクロ・VBA】アクティブシートと右隣のシートでマッチしたデータにOKを記入

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 key1 As Long
Dim LastRow1 As Long
    LastRow1 = ws1.Cells(Rows.Count, 1).End(xlUp).Row
Dim Key2 As Long
Dim LastRow2 As Long
    LastRow2 = ws2.Cells(Rows.Count, 1).End(xlUp).Row

For Key2 = 2 To LastRow2
    For key1 = 2 To LastRow1
    
        If ws1.Cells(key1, 1).Value = ws2.Cells(Key2, 1).Value Then
           ws1.Cells(key1, 7).Value = "OK"
           Exit For
        End If
    
    Next
Next

For key1 = 2 To LastRow1
    
        If ws1.Cells(key1, 1).Value = "" Then
            ws1.Cells(key1, 1).Interior.Color = 65535
        End If
    
Next

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

MsgBox "完了"
End Sub