Kopieren

bin über die Recherche nicht weitergekommen, daher diese Frage an Euch.

Wie muss ich dieses Makro:

Sub kopieren()
Dim Ziel As Worksheet
Dim Quelle As Worksheet
Dim intRow As Integer
Set Ziel = Worksheets("Belegnummernquelle")
Set Quelle = Worksheets("Journal")
intRow = Ziel.Cells(Rows.Count, 1).End(xlUp).Row + 1
Quelle.Rows(3).Copy Ziel.Rows(intRow)
Application.CutCopyMode = False
Ziel.Columns.AutoFit
End Sub

umstellen, damit nicht in die erste freie Zeile am Ende, sondern in die erste freie Zeile mittendrin kopiert wird?

Hoffe das ich mich verständlich ausgedückt habe.

Grüsse

Wolfgang