Sub Сверка_Адресов()
    Dim WB1 As Workbook
    Dim WB2 As Workbook
    Dim Path2 As String
    Dim i&, j&, s&, m
    'Прописываем путь второго файла (вместе с именем файла и расширением)
    Path2 = "бла бла бла.xls"
    'Определяем что WB1 - книга из которой вы запустили макрос
    Set WB1 = ActiveWorkbook
    Workbooks.Open (Path2)
    'Определяем что WB2 - книга, которую вы только что открыли
    Set WB2 = ActiveWorkbook
    s = 0
    m = 0
    For i = 7 To 339 'Range("B" & Rows.Count).End(xlUp).Row
        For j = 8 To 318
            If WB1.Worksheets(1).Cells(i, 2) = WB2.Worksheets(3).Cells(j, 2) Then
            'If Cells(i, 2) <> Empty Then
            s = s + 1
            GoTo NextI
            End If
        Next j
        MsgBox (WB1.Worksheets(1).Cells(i, 2))
        m = m + 1
NextI:
    Next i
    MsgBox ("Совпавших адресов " & s & " Не совпавших " & m)
    
End Sub