Moin zusammen,

mein jetziges Programm schreibt immer einzelne Zeilen in eine andere Tabelle in die nächst freie der Spalte:

.Cells(.Rows.Count, 6).End(xlUp).Offset(1).Value = Wert.Value

Nun möchte ich den Code abkürzen und jedoch anstatt "Wert" die Zellen von A4 bis E4 in die nächsten freien von F bis J reinschreiben lassen.

Wie klappt das mit nem ganzen Bereich?