Remove empty rows from the sheet 1

[barnard90]

I have a worksheet with employee data. It has only one column which has employee ids

All employee ids are in one column , one row after the other . However , there are some blank cells in between the employee ids.

I would like to permanently delete those empty rows
There are exactly 960 rows now in the employee id column
The column is first column ( 1) in Sheet1

Please suggest a VBA Code to delete the blank rows from the sheet

Thanks

 

[xlhelp]

http://www.cpearson.com/excel/deleting.htm#DeleteBlankRows

Member- AAAA Association Against Acronym Abusers

 

[PHV]

Perhaps this ?
ActiveSheet.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[SkipVought]

Hi,

When deleting rows, ALWASY loop from the bottom of the range, upward, otherwise you'll loose reference.

Comsider using SORT instead. However, you must SELECT the entire table explicitly.

Skip,

_[red][/red]