If blanks or row limits are a problem,
here is an alternate procedu
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
Copy Paste to the right of data, up 1 row
Select left half of data
Find Find All SHIFT+END Close
Delete Shift cells up