One way:

Public Sub DeleteBlankRows()
On Error Resume Next 'in case no blanks
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRo w.Delete
On Error GoTo 0
End Sub


If you're not familiar with macros, see David McRitchie's "Getting
Started with Macros":

http://www.mvps.org/dmcritchie/excel/getstarted.htm

In article ,
"Brian" wrote:

I have a spreadsheet with data in column 1.

every other row is empty, I would like to delete this rows in order to
compact my data.

Thanks.