title: Delete rows if multiple cells have zero
body: <p>I have multiple Excel workbooks that contain about 8,000 rows so it would be nice to use a macro.</p>
  
  <p>Basically, if any row has a zero (0) in all columns (at the same time) B, D, E, I, J, and K it will delete. </p>
  
  <p>Here is what I have so far...way too new with VB to figure out.</p>
  
  <pre><code>Sub DeleteRowsZeros()
      Dim LR As Long, i As Long
      LR = Range("A" &amp; Rows.Count).End(xlUp).Row
      For i = LR To 1 Step -1
          If (Range("B") = "0" And Range("D" &amp; i) = "0" And Range("E" &amp; i) = "0" And Range("I" &amp; i) = "0" _
          And Range("J" &amp; i) = "0" And Range("K" &amp; i) = "0") Then Rows(i).Delete
      Next i
  End Sub
  </code></pre>