Delete Entire Row For All Empty Cells In Column

[patel]

your code works well on my test workbook (excel 2010), also with not blank cells

But does not work on your sheets, I don't know why

[johnreid7477]

But does not work on your sheets, I don't know why

i'm got answer from p45cal it's work great.

On Error Resume Next
Worksheets("Data").Columns("M").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0

Thanks - John