ok, nun hab ich skapiert. wird aber auch Zeit. 

es liegt daran das ich im Archiv in der ersten Spalte die letzte benutzte Zelle suche 

 nextrow = .Cells(Rows.Count, 2).End(xlUp).Row + 1  ' Spalte "B" = 2

 wenn du die 2.Spalte benutzt, dann dürfte es klappen. Wenn im Rechnungsblatt in Spalte A keine Zahl steht wird auch keine Nach archiv kopiert. somit ändert sich die letzte benutzte Zelle nicht.