Deleting entire row if value in column A = 0

Hi guys, I have this formula from row 1-500 in column A

=IF(Sheet1!A2="",Sheet1!A1,"0").

Where the output is 0 i wish to remove the entire row, however i have being struggling to build / find a macro to do this. Is this because my excel is not seeing "0" but the formula instead? Any help or links to the macro to use would be much appreciated.

Many thanks

Ian

I entered the formula and Excel 2007 displayed a circular reference warning. When I clicked Cancel on that dialog box, Cell A1 which had the formula now displayed a 0. I can still see the formula in the formular bar though.

- Ravi

Here is some code that will select and delete a row if the value of Cell A1 is zero.

Sub DeleteRow()
    Sheets("Sheet1").Range("A1").Select
    If ActiveCell = 0 Then
        Rows("1:1").Select
        Selection.Delete Shift:=xlUp
        Range("A1").Select
    Else
        Sheets("Sheet1").Range("A1").Select
    End If
End Sub

I am not familiar with loops as yet.

- Ravi