Guten Abend zusammen,

ich möchte gerne um Hilfe bitten:
Habe folgendes Makro erstellt:

Sub Fuellen()
Dim LoLetzte As Long
Dim LoI As Long
LoLetzte = IIf(IsEmpty(Range("B:F")), Range("B:F").End(xlUp).Column, ("B:F") = "B:F")
For LoI = 7 To LoLetzte
If Cells(LoI, 1) = "" Then Cells(LoI, 1) = Cells(LoI - 1, 1)
Next LoI
End Sub

Damit soll die Daten in den Zellen B:F nach unten kopiert werden, bis ein neuer Datensatz beginnt.

Heißt, z.B. in Spalte B2:F2 stehen Daten die sollen bis z.B. B7:F7 kopiert werden. In B8:F8 steht dann wieder ein neuer Datensatz.
Dieser soll dann z.B. bis B9:F9 kopiert werden.

Es handelt sich um 1300 Datensätze mit unterschiedlichen Mengen an Zeilen die kopiert werden müssen.

Hoffentlich versteht jemand das Wirwarr.
Danke vorab für jegliche Hilfe.

Viele Grüße, Meikel