2 Namenslisten vergleichen und ergänzen

Hallo

ich habe 2 Namenslisten.
Eine Liste vom ersten Tag des aktuellen Quartals.
Eine Liste vom aktuellen Tag.
Jetzt sind am aktuellen Tag bereits Leute aus der Firma ausgetreten.
Daher möchte ich die alte Liste mit der aktuellen vergleichen und die aktuelle durch die fehlenden Namen ergänzen.
Da es um eine Auswertung geht, sind auch die ausgetretenen Mitarbeiter wichtig.

Beide Listen haben über 25.000 Einträge.
Leider gibt es auch Einträge, wo im Namensfeld ein leerer Eintrag ist, daher die zwei IF Prüfungen.

Mein Makro sieht so aus, braucht aber gefühlt ewig.

Public Sub Namen_ergaenzen_Q()
    Application.ScreenUpdating = False
    lastrow = Worksheets("Namen").Range("d65536").End(xlUp).Row
    lastrow2 = Worksheets("Namen_Q2").Range("d65536").End(xlUp).Row
    For a = 2 To lastrow2
        If ThisWorkbook.Worksheets("Namen_Q2").Cells(a, 1) = "" Then GoTo weiter
        If ThisWorkbook.Worksheets("Namen_Q2").Cells(a, 6) = "" Then Exit For
        i = ThisWorkbook.Worksheets("Namen_Q2").Cells(a, 1)
        Set ee = ThisWorkbook.Worksheets("Namen").Columns("A:A").Find(What:=i, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext)
        If ee Is Nothing Then
            ThisWorkbook.Worksheets("Namen_Q2").Range(a & ":" & a).Copy ThisWorkbook.Worksheets("Namen").Range(lastrow + 1 & ":" & lastrow + 1)
            lastrow = lastrow + 1
        End If
weiter:
    Next a
    Application.ScreenUpdating = True

End Sub