Delete Entire Row For All Empty Cells In Column

[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