Delete Blank Rows in Column (PLZ)

[omegadeltaphi]

i have this file that is one column and multiple rows........

I need to remove all blank cells, I cannot use: "Remove Duplicates" on this one because i am have duplicates in my data.

Thx in advance

Steve

 

[Rick Rothstein]

Give this macro a try...

Sub RemoveBlanks()
  Columns("A").SpecialCells(xlCellTypeBlanks).Delete xlShiftUp
End Sub