Office: Tabellen via Makro abgleichen und aktualisieren

Hallo!
Mein Problem besteht zur zeit darin, dass ich einen Datenabgleich 2er Tabellen, die die gleiche Struktur aufweisen machen soll. Damit sich die Daten aktualisieren. D.h. Tabelle1 ist nicht aktualisiert und Tabelle2 enthält neue Daten. Also soll Tabelle1 einen Abgleich zu Tabelle2 machen und sich selbst aktualisieren. Soweit so gut, habe mit etwas hin und her ein Makro zusammen kopiert. Nämlich folgendes:

Sub Vergleich()
Dim arQuelle As Variant, arZiel As Variant, lngZeile&, lngNeueZeile&, dic As Object
Dim wsQuelle As Worksheet

Set dic = CreateObject("scripting.dictionary")

Set wsQuelle = Workbooks("Firmenliste Test_Vergleich_2.xls").Worksheets("Europa2")
With wsQuelle

arQuelle = Range(.Range("A1"), .Range("A1").End(xlDown))

End With

With Workbooks("Firmenliste Test_Vergleich_2.xls").Worksheets("Europa")

arZiel = .Range(.Range("A1"), .Range("A1").End(xlDown))


For lngZeile = 1 To UBound(arZiel)
dic(arZiel(lngZeile, 1)) = lngZeile
Next
lngNeueZeile = lngZeile

For lngZeile = 1 To UBound(arQuelle)
If Not dic.exists(arQuelle(lngZeile, 1)) Then
wsQuelle.Rows(lngZeile).Copy .Rows(lngNeueZeile)
lngNeueZeile = lngNeueZeile + 1
Rows(lngNeueZeile - 1).Interior.ColorIndex = 35


End If
Next
End With
dic.RemoveAll
Set dic = Nothing
End Sub


Diese Sub läuft auch, vergleicht und aktualisiert jedoch nur ganze Zeilen. Also kommt das 2te, nämlich:

Sub Tabellen_vergleichen_und_aktualisieren()

Dim verg1(300), verg2(300)
Worksheets("Europa").Activate
z = 1
Do While Cells(z, 1) <> ""

verg1(z) = Cells(z, 2)
Range("B" & z).Select
Selection.Interior.ColorIndex = xlNone
z = z + 1
Loop
Worksheets("Europa2").Activate
y = 1
Do While Cells(y, 1) <> ""
verg2(y) = Cells(y, 2)
y = y + 1
Loop
For r = 1 To z - 1
If verg2(r) <> verg1(r) Then
Worksheets("Europa").Activate
Cells(r, 2) = verg2(r)
Range("B" & r).Select
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
End If
Worksheets("Europa2").Activate
Next r
Worksheets("Europa").Activate
End Sub

Dieses sollte eigentlich alle Zellen einzeln vergleichen und Änderungen bzw. neue Einträge aktualisieren und diese dann farbig markieren.
Das mit dem farbig Markieren klappt auch. Jedoch übernimmt es die neuen bzw. geänderten Werte nicht.
Hoffe ihr könnt mir helfen.
Merci schonmal im Voraus.
Ciao Lex