Was für einen Code muss ich hinzufügen- Zeilenwechsel

Question

Ich habe wieder eine kleine Frage
Ich habe ein Makro erstellt es kopiert ca 7 Zeilen eines anderen Datenblatttes.
Diese fügt es in ein anderes ein.
aber es bleibt immer in der gleichen Zeile hängen und fügt alles immer da ein.

Was muss ich im untenaufgeführten Befehl ändern, dass der die nächsten Eingaben, die gemacht werden, in die nächste Zeile einfügt, und danach wieder die Zeile wechselt und dort dann wieder die nächsten eingaben dort einfügt.

Sub Makro9()
'
' Makro9 Makro
'

'
Range("A4:G4").Select
Selection.Copy
Sheets("Hauptdatei").Select
Range("A7").Select
ActiveSheet.Paste
Range("A7").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A8").Select
End Sub


Vielen Dank für eure Hilfe

Answer 1

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]