Need a macro that will delete a line when "#n/a" appears

I need some help in finding a macro that will delete a line if the message #N/A appears. Right now I have a macro that will hide a row if it has a zero in it and it loops all the way till it hits "done" would like to add the ability to delete a row with #N/A in it, here is my code for the hide zero macro

Sub Hide_Zeros()
'Hides all rows less than zero starting at C11

ActiveSheet.Range("e12").Select
Do Until ActiveCell.Value = "END"
ActiveCell.Offset(1, 0).Activate
Cntr = Cntr + 1
If ActiveCell.Value <= 0 Then
ActiveCell.EntireRow.Hidden = "true"
End If
Loop

End Sub

Any help would be awesome, thanks!

Firstly, you need to add code tags to your post or else you will get your knuckles rapped.
Edit your post, then click the Advanced button, highlihgt the code, and click the [Code] button. It makes it much easier for people to read and offer you help.

Incidently you DO realise that your code doesn't start at C11 as indicated in the comment, but at E12 don't you? Also it loops until it reaches "END" not "done", you need to make sure your blurb and your code say the same things otherwise people will get truely confused!

Also unless you are intialising and then use the Cntr variable outside of this sub it is not actually doing anything.

Option Explicit

Sub Hide_Zeros_Delete_NA()
'Hides all rows less than zero starting at E12 and deletes any containing "#N/A"

Dim row_counter as Long
row_counter=12
Do While Range("E" & row_counter).value <>"End"
    ' Cntr = Cntr + 1 This is commented out as it is unclear what it is for
    If Range("E" & row_counter).Value <= 0 Then
        Range("E" & row_counter).EntireRow.Hidden = True
    ElseIf Range("E" & row_counter).Value = "#N/A" Then
        Range("E" & row_counter).EntireRow.Delete
        row_counter = row_counter - 1 'Offset it backwards as by deleteing a row you will have moved the data up, so no need to move the counter down.
    End If
    row_counter = row_counter + 1 ' Move to the next row
Loop
End Sub

What was the error given?

Is the "#N/A" the actual text in the cell, or an Excel error message, or what is displayed after some custom formatting?

Is it "#N/A", "#n/a" or "N/a" ? It may be that the case is wrong, but I can't really help anymore without having a copy of the data, or at least knowing what the 'error' was that you got.

Can you upload an example workbook worksheet of your data?

Perhaps something along the lines of the below ?

Public Sub Purge()
Dim rngData As Range, xlCalc As XlCalculation
Set rngData = Sheets("sheet1").Range(Cells(5, "E"), Cells(Rows.Count, "E").End(xlUp))
With Application
    xlCalc = .Calculation
    .Calculation = xlCalculationManual
    .EnableEvents = False
    .ScreenUpdating = False
End With
With rngData.Offset(, Columns.Count - rngData.Column)
    .FormulaR1C1 = "=IF(ISERROR(RC5),""x"",IF(RC5=0,""x"",1))"
    .Calculate
    .SpecialCells(xlCellTypeFormulas, xlTextValues).EntireRow.Delete
    .Clear
End With
Set rngData = Nothing
With Application
    .Calculation = xlCalc
    .EnableEvents = True
    .ScreenUpdating = True
End With
End Sub