Fortlaufendes Suchen von Werten + Kopie in Spalt

habe folgendes Problem, ich möchte meine Excel-Tabelle auf dem 1Arbeitsblatt in der Spalte E nach 5stelligen Zahlen die mit 55 beginnen abfragen.
Diesen gefundenen Wert soll er dann in die spalte H (in jede Zeile kopieren) bis die nächste 5stellige Zahl gefunden wird dann soll er diese unter die davor eingefügten Werte packen usw. bis er keine 5stelligen Werte mehr findet (die mit 55 beginnen).

Ich habe folgendes Makro, aber irgendwie funktioniert es nicht.
Kann mir einer sagen warum???

For i = 1 To Range("E65536").End(xlUp).Row
If Cells(i, 5) >= 55000 And Cells(i, 5) <= 55999 Then
Cells(i, 8) = Cells(i, 5)
Else
If i <> 1 Then Cells(i, 8) = Cells(i - 1, 8)
End If
Next i

Gruß
Christine