Сравнить два столбца на разных листах. Вывести на Лист3 не совпадающие значения - VBA

Private Sub CommandButton3_Click()
    Dim a, i&, t$
 
    a = Sheets("Сканер").[a1].CurrentRegion.Value
    With CreateObject("scripting.dictionary"): .comparemode = 1
        For i = 2 To UBound(a)
            .Item(a(i, 1) & "|" & a(i, 2)) = 0&
        Next
        ii = 1
        a = Sheets("ЕИИС").[a1].CurrentRegion.Columns(2).Resize(, 2).Value
        For i = 2 To UBound(a)
            t = a(i, 1) & "|" & a(i, 2)
            If Not .exists(t) Then
                ii = ii + 1
                a(ii, 1) = a(i, 1)
                a(ii, 2) = a(i, 2)
            End If
        Next
 
    End With
 
    [a1].Resize(ii, 2) = a
 
End Sub