Zitat von peterfido: „Sheets("Quelle").Rows("1:32").Copy Sheets("Ziel").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False“ Alternativ ohne über den Pastebuffer zu gehen: Visual Basic-Quellcode (1 Zeile)