speed up Macro to Delete Blank Rows

[howard]

I have a macro to delete blank rows in Col M


I have +- 100,000 rows of data so it is fairly slow

 Sub Del_Blank_Rows_ColM()

Sheets(2).Select

Application.ScreenUpdating = False
Columns("M:M").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Application.ScreenUpdating = True
End Sub

It would be appreciated if someone could provide me with code that will speed up the process

 

[footoo]

Try sorting by column M to get all the blank cells at the bottom, and do the delete.

 

[howard]

Thanks for the advise