Deleting multiple rows in Excel

[natasha_tracy]

Hello All,

I have searched the forum already for this problem, but as far as I can see none of the threads related are quite what I'm looking for.

I have a spreadsheet with thousands of rows of data- some rows throughout the sheet are completely blank. Is there a way I can select all the blank rows and delete them without going through and selecting each row? I have tried sorting the data so that all the blank rows go to the end, but I need the data to stay in the order I imported it in, which cannot be sorted back in excel.

If anyone can help - it would be much appreciated.

Natasha

 

[ADAMC]

edit

Hi welcome to the board,

Try selecting your column which contains data and running this code placed in the sheet module

Sub DeleteRowOnCell()
On Error Resume Next
Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
ActiveSheet.UsedRange
End Sub