Need help with Column/Row removal if 0 or blank

[hank3rd]

I need to delete row(s) if the row is 0 (blank). I see some code the looks up the whole sheet, but not what I need.

Here is part of the instructions that I need to make a macro.

5	RAW DATA	triple-sort by the columns below, largest to smallest
		…"Clicks" in Column G, "Opens" in Column E and "Unsubs" in Column I
6	RAW DATA	delete the rows with 0 clicks AND 0 Opens
7		of the remaining rows, delete where Unsubs = 1

<colgroup><col width="45" style="width: 34pt;"><col width="117" style="width: 88pt;"><col width="501" style="width: 376pt;"></colgroup><tbody>
</tbody>

I have number 5 done, I need 6/7 done. The "clicks" are in column G, "Opens" column E, and "Unsubs" column I.

Here is what a portion of the report looks like. https://cl.ly/0t351D3c2g30

I hope someone can help.

 

[hank3rd]

I got this figured out. I also needed to delete rows if the Column cell had a 1.

[FONT=&quot]Application.ScreenUpdating = False[/FONT]
[FONT=&quot]Columns("G:G").SpecialCells(xlCellTypeBlanks).EntireRow.Delete[/FONT]
[FONT=&quot]Application.ScreenUpdating = True[/FONT]
[FONT=&quot]
[/FONT]
[FONT=&quot]Application.ScreenUpdating = False[/FONT]
[FONT=&quot]Columns("E:E").SpecialCells(xlCellTypeBlanks).EntireRow.Delete[/FONT]
[FONT=&quot]Application.ScreenUpdating = True[/FONT]
[FONT=&quot]
[/FONT]
[FONT=&quot]Dim c As Range[/FONT]
[FONT=&quot] Dim SrchRng[/FONT]
[FONT=&quot]
[/FONT]
[FONT=&quot] Set SrchRng = ActiveSheet.Range("I:I")[/FONT]
[FONT=&quot] Do[/FONT]
[FONT=&quot] Set c = SrchRng.Find("1", LookIn:=xlValues)[/FONT]
[FONT=&quot] If Not c Is Nothing Then c.EntireRow.Delete[/FONT]
[FONT=&quot] Loop While Not c Is Nothing[/FONT]
[FONT=&quot]End Sub[/FONT]