Sub Del_Rows()
 Dim C As Range, i As Long
 Dim ws As Worksheet, LR As Long
 Set ws = Sheets("Sheet1")
 LR = ws.Range("C" & Rows.Count).End(3).Row
 For Each C In ws.Range("D3:D" & LR)
 If C.Value <> "" Then
 If C.Value = 0 Or C.Offset(0, 1) = 0 Then
 C.EntireRow.Hidden = True
 End If
 End If
 Next
 
 End Sub