Delete Rows not needed Macro

[zone709]

I need to delete 2 kind of rows Macro. If H or I have a 0 or 0.00 in it. Then delete that row but i also need to delete one row above it also.
On Sheet2 i have Example the clean look and i am realizing if i can delete Column H or I with a 0 or 0.00 in them. Then also delete the row above it. Only Above not below.
You can see the rows with zeros i don't need. Then mostly not all have the same name above row. Deleting both i think would clean my whole sheet. (above only)

Test Macro Work.xlsx
	A	B	C	D	E	F	G	H	I
1		AMD
2			Bill	7/1/2024	110	Fine Street	7/31/2024	7,500.00	7,500.00
3		Total AMD						7,500.00	7,500.00
4		American
5		Beac						0	0
6		American General
7			Bill	8/14/2024	34394	Fine Street	9/13/2024	5,197.91	5,197.91
8		Total American General						5,197.91	5,197.91
9		Landscaping LLC
10		Landscaping LLC						0	0
11		Corporation
12		Corporation						0	0
13		Fuel Corpration
14		Fuel Corpration						0	0
15		Arrow
16			Bill	7/1/2024	21049	Fine Street	7/31/2024	10,450.00	10,450.00
17			Bill	8/1/2024	21170	Fine Street	8/31/2024	10,450.00	10,450.00
Sheet1

Example Results

Test Macro Work.xlsx
	A	B	C	D	E	F	G	H	I
1		AMD
2			Bill	7/1/2024	110	Fine Street	7/31/2024	7,500.00	7,500.00
3		Total AMD						7,500.00	7,500.00
4		American General
5			Bill	8/14/2024	34394	Fine Street	9/13/2024	5,197.91	5,197.91
6		Total American General						5,197.91	5,197.91
7		Arrow
8			Bill	7/1/2024	21049	Fine Street	7/31/2024	10,450.00	10,450.00
9			Bill	8/1/2024	21170	Fine Street	8/31/2024	10,450.00	10,450.00
Sheet2

 

[zone709]

Hi leave them alone. I run a macro first before i then run this macro. I do not clean it up till after. So when i run the above first ill have ref in those cells at start. Wanted to work around it so the above macro can run anyway with the Ref in place.

 

[RoryA]

Try this change then:

Sub MM1()
Dim lr As Long, r As Long
lr = Cells.Find("*", , xlValues, , xlRows, xlPrevious).Row
    For r = lr To 2 Step -1
      if not iserror(Cells(r, "H").Value) then
        If (Cells(r, "H").Value = 0 Or Cells(r, "I").Value = 0) And _
            (Cells(r, "H").Value <> "" Or Cells(r, "I").Value <> "") Then
            Range(Cells(r, "H"), Cells(r - 1, "H")).EntireRow.Delete
         End If
      end if
    Next r
End Sub

 

[zone709]

This works great and works around the #ref. Thank you and to everyone thank you again.