Trying to create a macro to delete entire rows based on a helper column having an account#

I have a macro setup to create a helper column and paste a vlookup formula to return wether or not an account number matches on another sheet or not. Now i need the macro to delete the rows that have the matching account numbers but keep the rows that have a n/a where it doesn't match. ANy help?

    Range("AB6").Select
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC[-27],Delinquency_Report.xls!R7C3:R2133C3,1,FALSE)"
    Selection.AutoFill Destination:=Range("AB6:AB557"), Type:=xlFillDefault
    Range("AB6:AB557").Select
End Sub

The cell format for the helper column is set to general. If a result is matched it shows the account #, other wise it has the #n/a thing. Does this help? WIth the code you gave me it would still not work, . Any ideas what I need to do, I just want it to delelete any row that doesnt end with "#N/A"

Originally Posted by AlvaroSiza

Look at notes throughout the code. I could not tell what the result of the VLOOKUP is. If the result is a 1/0 (True/False), or simply when the acct # matches the acct# is returned, and assuming the acct# is in fact a number and not an alphanumeric string, the following should suffice.

Sub DeleteRows()

Dim rngCell As Range
Dim rngSource As Range

   With Application
      .ScreenUpdating = False
      .EnableEvents = False
      .Calculation = xlCalculationManual
   End With

      'You will need to change the sheet name to match your workbook below
      With Sheets("Sheet1")
         'Dynamically assuming no blanks in range
         Set rngSource = .Range("AB6", .Range("AB6").End(xlDown))
         'Or static based on original post; De-comment to use
         'Set rngSource = .Range("AB6:AB557")
      End With
      
      For Each rngCell In rngSource
         'Might need to change the logic below; could not tell from OP
         If rngCell.Value > 0 Then
            rngCell.EntireRow.Delete
         End If
      Next

   With Application
      .EnableEvents = True
      .ScreenUpdating = True
      .Calculation = xlCalculationAutomatic
   End With

End Sub