Using VBA to delete two rows based on value

[robertdseals]

Hello,
I'm using this to delete a row based on if a cell has a value of zero. However, I would like to delete the row with the value of zero and the row under it also.
Sub DeleteZeroRow()
'Updateby20140616
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Do
Set Rng = WorkRng.Find("0", LookIn:=xlValues)
If Not Rng Is Nothing Then
Rng.EntireRow.Delete
'Rows(ActiveCell.Row).Delete
End If
Loop While Not Rng Is Nothing
Application.ScreenUpdating = True
End Sub

 

[alansidman]

try adding this line of code

Rng.Offset(1,0).EntireRow.Delete

below

Rng.EntireRow.Delete

 

[robertdseals]

Humm...that didn't seem to work. Stepping through the VBA that step doesn't seem to do anything. Maybe because the cell isn't "active"?

 

[alansidman]

Not sure that "active" is the issue as you have named a specific range (Rng) and you are deleting the Rng. Suggest that try putting the line of code I provided above instead of below your line of code.