Public Sub DELETE_Rows_CellZero_Col_B_C_D() Dim x As Long Dim y As Long x = Range("C65536").End(xlUp).Row For y = x To 2 Step -1 If Cells(y, 2).Value = 0 And Cells(y, 3).Value = 0 And Cells(y, 4).Value = 0 Then Rows(y).Delete End If Next y End Sub
DON'T MISS