|  
                                             
	Hallo Sven, 
	kann eigentlich nicht sein, denn mit  
letzteZ1 = .Cells(Rows.Count, 1).End(xlUp).Row 
	stelle ich die letzte benutzte Zelle der Spalte A fest. Das sollte dann in deinem Fall die Ueberschriftenzeile sein. Und mit: 
.Cells(letzteZ1 + 1, 1).PasteSpecial xlPasteValues 
	fuege ich die Werte in die Zeile nach dieser letzten benutzten Zeile ein. 
	Hast du vielleicht nichts in Spalte A in Tabelle 1? Dann musst du halt die Spalte aendern, in der die letzte Zeile ermittelt wird. 
     |