Excel - Delete row where specific cell is blank or meets condition

Sub delete_rows_zero()

Dim nMaxRow As Long, nrow As Long
nMaxRow = ActiveSheet.UsedRange.Rows.Count

For nrow = nMaxRow To 1 Step -1
If Range("A" & nrow).Value = 0 Then
Range("A" & nrow).EntireRow.Delete
End If
Next nrow

End Sub

http://www.mrexcel.com/forum/showthread.php?t=52132