Hallo liebes Forum,

ich möchte aus einer Tabelle die Spalten A bis Q kopieren und in eine andere Tabelle in die erste freie Zeile einfügen. Die Zeilen sind variabel. In Spalte A stehen allerdings keine Werte, diese beginnen erst in Spalte B. Mit folgendem Code funktioniert das kopieren. Ich möchte die Formatierungen und die Werte kopieren, nicht die Formeln. Wie muss ich den Code anpassen? Vielleicht kann mir jemand helfen. Vielen Dank.

Sub test_kopieren()
Dim rng As Range
'Range der Quelldatei definieren
Set rng = Worksheets("HilfstabelleTMM Report on Claim").UsedRange
rng.Copy Sheets("test").Cells(Rows.Count, 2).End(xlUp).Offset(1, -1)

End Sub

LG Tanri