deleting selected cell and rows above

hello!

i want my macro to find all cells in range "D1" that have the value 0(zero). and delete that row, along with the rows above that until there is a blank cell in range "C1". when a blank cell is detected, then i want the program to stop deleting. i think this might be done with a cell reference, but i cannot seem to get it.

i tried a for each/next loop but am now stuck.. please help!! thank you!!

so far all i've got is...

Sub test()

for each c in range ("d1")
if c="0" then c.entirerow.delete

next
end sub

i know.. this only deletes the zeros. how do i get it to delete the rows??

thanks!!

Range("D1") only has one cell. Do you mean Column D?

Is this what you want?

Option Explicit

Sub DeleteTwoRows()
    Dim LastRow As Long, RowNo As Long

    LastRow = Range("D" & Rows.Count).End(xlUp).Row

    For RowNo = LastRow To 2 Step -1
        If Range("D" & RowNo) = 0 Then
            Rows(RowNo - 1 & ":" & RowNo).EntireRow.Delete
        End If
    Next
End Sub

Watch out for entries that are " " this will not be removed, do you need them removed?

Hope this helps