Remove Row in two columns in two ranges VBA

[AccountantinExcel]

I am trying to write a macro to remove rows with a cell value of zero in Range H4-H1003 and I1004-I2003.

Can anyone help with this?

Sub Remove_Empty_Cells()
Dim ws As Worksheet, last As Long, i As Long
For Each ws In Worksheets(Array("JE"))
ws.Activate
last = Cells(Rows.Count, "H1003").End(xlUp).Row 'Delete rows
For i = last To 3 Step -1
If Cells(i, "H1003").Value = 0 Then
Cells(i, "H4").EntireRow.Delete
End If
Next i
last = Cells(Rows.Count, "I2003").End(xlUp).Row 'Delete rows
For j = last To 3 Step -1
If Cells(i, "I2003").Value = 0 Then
Cells(i, "I1004").EntireRow.Delete
End If
Next j
Next ws
End Sub

Thanks!

 

[Rick Rothstein]

I am trying to write a macro to remove rows with a cell value of zero in Range H4-H1003 and I1004-I2003.

Do both columns have to have 0 in them for a given row in order for that row to be removed?

 

[AccountantinExcel]

Do both columns have to have 0 in them for a given row in order for that row to be removed?

Yes, I am trying to format a Journal Entry with thousands of rows. For example

Column H Column I
500 0
387 0
827 0
0 0 (Remove)
0 0 (Remove)
0 500
0 387
0 827
0 0 (Remove)
0 0 (Remove)

 

[Rick Rothstein]

Give this macro a try...

[table="width: 500"]
[tr]
	[td]Sub DeleteRowsWithZerosInColumnHandI()
  With Range("H1", Cells(Rows.Count, "H").End(xlUp))
    .Value = Evaluate("IF((" & .Address & "=0)*(" & .Offset(, 1).Address & "=0),""#N/A""," & .Address & ")")
    On Error GoTo NoDoubleZeros
    .SpecialCells(xlConstants, xlErrors).EntireRow.Delete
  End With
NoDoubleZeros:
End Sub[/td]
[/tr]
[/table]

 

[AccountantinExcel]

Give this macro a try...

[TABLE="width: 500"]
<tbody>[TR]
[TD]Sub DeleteRowsWithZerosInColumnHandI()
  With Range("H1", Cells(Rows.Count, "H").End(xlUp))
    .Value = Evaluate("IF((" & .Address & "=0)*(" & .Offset(, 1).Address & "=0),""#N/A""," & .Address & ")")
    On Error GoTo NoDoubleZeros
    .SpecialCells(xlConstants, xlErrors).EntireRow.Delete
  End With
NoDoubleZeros:
End Sub[/TD]
[/TR]
</tbody>[/TABLE]

That worked Thanks!!