Formularvorlage mit Daten füllen

Hallo ihr Lieben,
ich hab ein kleines Problem in Excel und hoffe, dass mir jmd. weiterhelfen könnte.
Es geht um folgendes:
Ich habe eine Datei mit zwei Arbeitsblätter das eine Blatt ist gefüllt mit verschiedenen Daten, das andere ist eine Formularvorlage in die 4 Datensätze eingefügt werden können.
Was ich mir jetzt wünschen würde, wäre ein Programm, welches diese Formatvorlage kopiert und die ersten 4 Datensätze einträgt (falls weniger als 4 Datensätze vorhandensind, dann eben nur die vorhandenen Datensätze dort einträgt).
Dies soll so lange wiederholt werden bis alle Datensätze abgearbeitet sind.
Ich hoffe es ist klar was ich damit meine. Falls nicht, würde ich um eine kurze Rückmeldung bitten, dann versuche ich es noch mal zu erläutern.
Beim Stöbern im Forum habe ich schon eine ähnliche Fragestellung gefunden und versucht die Lösungsvorschläge anzuwenden.
Mein Makro sieht folgendermaßen aus:

Sub Makro1Versuch1()
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Dim lngZ As Long, i As Long
Set wks1 = Worksheets("Daten")
Set wks2 = Worksheets("Vorlage Makro")
lngZ = wks1.Cells(wks1.Rows.Count, 1).End(xlUp).Row
For i = 2 To lngZ
wks2.Copy After:=Sheets(Sheets.Count)
With ActiveSheet
.Cells(5, 1) = wks1.Cells(i, 2) ' IdentNr1
.Cells(7, 2) = wks1.Cells(i, 2) ' IdentNr2
.Cells(9, 2) = wks1.Cells(i, 2) ' IdentNr3
.Cells(12, 2) = wks1.Cells(i, 3) ' Beschreibung
.Cells(2, 1) = wks1.Cells(i, 4) ' L1
.Cells(14, 9) = wks1.Cells(i, 4) ' L2
.Cells(3, 2) = wks1.Cells(i, 5) ' KanbanBahnhof
.Cells(3, 8) = wks1.Cells(i, 6) 'Anlieferstelle
.Cells(9, 8) = wks1.Cells(i, 7) 'Anzahl Teile1
.Cells(7, 8) = wks1.Cells(i, 7) 'Anzahl Teile2
.Cells(14, 5) = wks1.Cells(i, 8) 'Karte Nr.
.Cells(14, 7) = wks1.Cells(i, 9) 'Anz Karten
.Cells(3, 10) = wks1.Cells(i, 10) ' Regal
.Cells(14, 3) = wks1.Cells(i, 11) ' LET
.Cells(19, 1) = wks1.Cells(i, 2) ' IdentNr1
.Cells(21, 2) = wks1.Cells(i, 2) ' IdentNr2
.Cells(23, 2) = wks1.Cells(i, 2) ' IdentNr3
.Cells(26, 2) = wks1.Cells(i, 3) ' Beschreibung
.Cells(16, 1) = wks1.Cells(i, 4) ' L1
.Cells(28, 9) = wks1.Cells(i, 4) ' L2
.Cells(17, 2) = wks1.Cells(i, 5) ' KanbanBahnhof
.Cells(17, 8) = wks1.Cells(i, 6) 'Anlieferstelle
.Cells(23, 8) = wks1.Cells(i, 7) 'Anzahl Teile1
.Cells(21, 8) = wks1.Cells(i, 7) 'Anzahl Teile2
.Cells(28, 5) = wks1.Cells(i, 8) 'Karte Nr.
.Cells(28, 7) = wks1.Cells(i, 9) 'Anz Karten
.Cells(17, 10) = wks1.Cells(i, 10) ' Regal
.Cells(28, 3) = wks1.Cells(i, 11) ' LET
.Cells(33, 1) = wks1.Cells(i, 2) ' IdentNr1
.Cells(35, 2) = wks1.Cells(i, 2) ' IdentNr2
.Cells(37, 2) = wks1.Cells(i, 2) ' IdentNr3
.Cells(40, 2) = wks1.Cells(i, 3) ' Beschreibung
.Cells(30, 1) = wks1.Cells(i, 4) ' L1
.Cells(42, 9) = wks1.Cells(i, 4) ' L2
.Cells(31, 2) = wks1.Cells(i, 5) ' KanbanBahnhof
.Cells(31, 8) = wks1.Cells(i, 6) 'Anlieferstelle
.Cells(37, 8) = wks1.Cells(i, 7) 'Anzahl Teile1
.Cells(35, 8) = wks1.Cells(i, 7) 'Anzahl Teile2
.Cells(42, 5) = wks1.Cells(i, 8) 'Karte Nr.
.Cells(42, 7) = wks1.Cells(i, 9) 'Anz Karten
.Cells(31, 10) = wks1.Cells(i, 10) ' Regal
.Cells(42, 3) = wks1.Cells(i, 11) ' LET
.Cells(47, 1) = wks1.Cells(i, 2) ' IdentNr1
.Cells(49, 2) = wks1.Cells(i, 2) ' IdentNr2
.Cells(51, 2) = wks1.Cells(i, 2) ' IdentNr3
.Cells(54, 2) = wks1.Cells(i, 3) ' Beschreibung
.Cells(44, 1) = wks1.Cells(i, 4) ' L1
.Cells(56, 9) = wks1.Cells(i, 4) ' L2
.Cells(45, 2) = wks1.Cells(i, 5) ' KanbanBahnhof
.Cells(45, 8) = wks1.Cells(i, 6) 'Anlieferstelle
.Cells(51, 8) = wks1.Cells(i, 7) 'Anzahl Teile1
.Cells(49, 8) = wks1.Cells(i, 7) 'Anzahl Teile2
.Cells(56, 5) = wks1.Cells(i, 8) 'Karte Nr.
.Cells(56, 7) = wks1.Cells(i, 9) 'Anz Karten
.Cells(45, 10) = wks1.Cells(i, 10) ' Regal
.Cells(56, 3) = wks1.Cells(i, 11) ' LET
Do Until i >= 1
Loop
End With
Next i
End Sub