Tabelle Vergleichen Neue Zeilen hinzufügen

[Alibabax3]

Guten Tag Community, 
 
Ich habe ein vermutlich sehr leicht zu lösendes Problem jedoch bin ich in VBA blutiger Anfänger. 
Ich würde gerne 2 Spalten von 2 verschiedenen Sheets miteinander vergleichen und bei Sheet 2 neue Zeilen aus Sheet 1 hinzufügen.
Dabei sollen die Spalten immer bis zur letzten befüllten Zeile verglichen werden.

Ich habe eine einfache Beispieldatei angehängt aber ich denke das Problem ist auch so verständlich. 
Über einen VBA-Code den ich dann anpassen kann würde ich mich sehr freuen.

MfG Alibaba

[00202]

Hallo,

prinzipiell so:
[attachment=36277]

[Alibabax3]

Hi Case, 
besten Dank schonmal. Der Code funktioniert zunächst perfekt und ist genau was ich brauchte. 

Beim wiederholten Drücken des Buttons werden jedoch die letzten 5 Zeilen aus einem mir unerklärlichen Grund falsch vertauscht. Wenn man dann nochmal drückt ist es wieder richtig. 
Woran liegt das? 

Gruß Alibaba

[00202]

Hallo,

ändere diese Zeile...

Code:

.Cells(lngNeueZeile, 1) = varArr(lngZeile, 1)

... so ab:

Code:

.Cells(lngNeueZeile + 4, 1) = varArr(lngZeile, 1)

Du hast ja oben 4 Leerzellen drin.

[Alibabax3]

Klappt ! 

Vielen Dank.

Gruß Alibaba