title: Delete entire rows when cells in multiple columns are blank or 0
body: <p>I am trying to write a code which basically looks at rows 13-33 and deletes the entire row if the cells in Columns B-M are all Blank AND column A is NOT blank. </p>
  
  <p>The first code which I have written below deletes the entire row only if the cell in Column B is blank but I need all the cells in B-M to be blank in order to delete the entire row. </p>
  
  <pre><code>Sub scheduleA()
  
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
  
  Sheets("Schedule A Template").Select
  
  Dim RowstoDelete As Long
  x = 33
  For RowstoDelete = Cells(x, 2).End(xlUp).Row To 13 Step -1
  
  If (Cells(RowstoDelete, 2).Value = "0") And (Cells(RowstoDelete, 1).Value &lt;&gt; "") Then
          Rows(RowstoDelete).Delete Shift:=xlUp
      End If
  
  
  Next RowstoDelete
  Application.Calculation = xlCalculationAutomatic
  Application.ScreenUpdating = True
  
  End Sub
  </code></pre>
  
  <p>I tried writing it differently as well in the following code but can't achieve the desire result.</p>
  
  <pre><code>Sub DeleteRows()
  
  
  Dim i As Integer
  
  For i = 33 To 13 Step -1
    If WorksheetFunction.CountA(Range("B" &amp; i, "M" &amp; i)) = 0 And WorksheetFunction.CountA(Range("A" &amp; i)) &lt;&gt; "" Then
       Rows(i).EntireRow.Delete
      End If
  
  Next i
  
  End Sub
  </code></pre>
  
  <p>Please help!</p>