This could be done without any formulas:
Select cells plus top blank row.
Format AutoFormat List1
Options Uncheck all except Pattern
Edit Find Options Format Choose Format from Cell
Select any white cell Find All SHIFT+END Close
Insert Shift cells right
Select all
Edit Go To Special Blanks
Delete Shift cells up

This assumes there are no blanks in the data.
A certain row limit exists.(Why?)