Hallo Dommei,
das sieht dann wie folgt aus:
Range("A4:G4").Copy _
Sheets("Hauptdatei").Cells(Sheets("Hauptdatei").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row, 1)
Hier werden die kopierten Werte in das Blatt "Hauptdatei" in die erste freie Zelle in Spalte A eingefügt.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]