Range("Z:Z").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
so you are saying that there is data in the other columns below the last row in col Z ??
If so, which columns will contain extra data ?
Sub MM1()
Application.ScreenUpdating = False
With Columns(26)
.AutoFilter field:=1, Criteria1:=">" & 1
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
.AutoFilter
End With
Application.ScreenUpdating = True
End Sub
Try using the previously provided code with modifications to suit.
Code:Sub MM1() Application.ScreenUpdating = False With Columns(26) .AutoFilter field:=1, Criteria1:=">" & 1 .SpecialCells(xlCellTypeVisible).EntireRow.Delete .AutoFilter End With Application.ScreenUpdating = True End Sub