Hallo in Runde,

ich stehe vor dem Problem, dass mein Makro, was Leerzeilen mit dem Wert der darüberliegenden Zelle füllen soll, am Ende der Spalte bis ins Unendliche füllt.
Er erkennt nicht das eigentlich Ende der anderen Zellen. Das Tabellenblatt endet in meinem Beispiel bei Zeile 4046, wird aber mit dem letzten Datum bis Zeile > 100.000 gefüllt.
Wie kann ich dies verhindern bzw. das Problem lösen? :-)

Makro sieht so aus:

Sub Datum ()
' Datum Makro
'
Columns("B:B").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.FormulaR1C1 = "=R[-1]C"
End Sub

Beispieldatei:
https://www.herber.de/bbs/user/168721.xlsx

Ich hoffe auf Hilfe

LG Fio