Hallo liebe Excelgemeinde, gibt es eine Möglichkeit das Makro so zu ändern das die Spalten ab Spalte X in der Zieltabelle nicht überschrieben werden
Dim a As Long, b As Long, c As Long
b = Sheets("").Cells(Rows.Count, 1).End(xlUp).Row
c = Sheets("").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("").Rows("2:" & b).Copy
Sheets("").Rows(c).Insert
Sheets("").Rows("2:" & b).Clear
Danke René