title: Deleting blank rows in a table with Excel
body: <p>I want to create a macro to loop through a table and delete blank rows based on criteria found in columns B:E without deleting the second to last row of the table. </p>
  
  <p>The second to last row of the table will always be empty in columns B:E so I want it to skip that row. </p>
  
  <p>Here are the names of the columns of B, C, D, E</p>
  
  <p>Client<br>
  Pipeline Stage (Select dropdown)<br>
  Forecast Close (Select dropdown)<br>
  Potential Opportunity</p>
  
  <p>Here's what I have below but I am not sure how to modify it to the correct formatting. </p>
  
  <pre><code>Sub Delete_Table_Rows()
  
  Dim tblrows As Range
  Dim client As Long
  Dim tbl As ListObjects
  Dim ws As Worksheet
  
  With Application
      .Calculation = xlCalculationManual
      .ScreenUpdating = False
  
  Set ws = Sheets(“sheet1”)
  set tblrows = ws.worksheets("sheet1").Range(“table1, [client]").Value = ""
  
      For client = Selection.Rows.Count To 1 Step -1
          If WorksheetFunction.CountA(Selection.Rows(client)) = “” Then
              Selection.Rows(client).EntireRow.Delete
          End If
  Next i
      .Calculation = xlCalculationAutomatic
      .ScreenUpdating = True
  End With
  End Sub
  </code></pre>