Сравнение 2 книг в Excel и копирование найденых пар в третью книгу / VBA

Sub QWERT_без_словаря() 'процедура
'Объявление переменных
Dim WB0 As Workbook
Dim WB1 As Workbook
Dim WB2 As Workbook
Dim R1, R2, T1, T2, J, c
Dim SH1 As Worksheet, SH2 As Worksheet
Dim M1(), M2(), U()
'назначение переменных
Set WB0 = ActiveWorkbook
Set WB1 = Application.Workbooks.Open(WB0.Path & "\Книга1.xls") 'с открытием книги находящейся рядом
Set WB2 = Application.Workbooks.Open(WB0.Path & "\Книга2.xls") '
Set SH1 = WB1.Worksheets(1): Set SH2 = WB2.Worksheets(1) 'назначение листов книг
M1 = SH1.UsedRange: M2 = SH2.UsedRange 'считывание в массив данных
WB1.Close: WB2.Close 'закрытик книг
Set WB1 = Nothing: Set WB2 = Nothing 'освобождение памяти
 
With WB0.Worksheets(1) 'работаем с первым пистом начальной книги
    .Cells.ClearContents 'очищаем полностью лист
    J = 1 'назначаем номер строки
    
    For R1 = 2 To UBound(M1) ' по всем записям первого массива (первой книги)
     T1 = M1(R1, 5) & ":" & M1(R1, 6) '& ":" & M1(R1, 7)' собираем строку сравнения из нужных столбцов
        For R2 = 2 To UBound(M1) 'по всем записям второго массива (второй книги)
            T2 = M2(R2, 3) & ":" & M2(R2, 6) '& ":" & M2(R2, 7)'собираем строку сравнения из нужных столбцов
                 If T2 = T1 Then 'сравниваем. Можно было бы не собирать, а сравнивать непосредственно строки сборки. Но так нагляднее
'                    если строки равны
                    J = J + 1 'переводим строку
                    For c = 1 To UBound(M1, 2) 'и переписываем на лист строку из первой книги
                        .Cells(J, c) = M1(R1, c)
                        .Cells(J + 1, c) = M2(R2, c)
                    Next c
                    J = J + 1
                    GoTo 1 ' перход к следующей строке массива 1
'                Else
 
                End If
        Next R2
'        если совпадения не нашли - записываем строку из первой книги
        J = J + 1 '
        For c = 1 To UBound(M1, 2) '
            .Cells(J, c) = M2(R1, c)
        Next c
        J = J + 1
1
    Next R1 '
End With '
 
End Sub

 T1 = M1(R1, 5) & ":" & M1(R1, 6) '& ":" & M1(R1, 7)