How to remove blank cells from row

[Spac3Monkey]

Hi

I have a row of 5 cells e.g

12345 67891 Blank 12345 Blank

I have roughly 50 lines of data, how can I remove the blanks and just return the cells with entries?

Thanks

[royUK]

Can you explain more clearly/ Is the whole column blank?

[Garf]

Why do you have blanks, is this by design or a fault in the setup?

[davesexcel]

try

    Columns("A:A").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

Change column to suite