title: Delete Blank Rows after AutoFilter
body: <p>I have the following code in my Excel sheet:</p>
  
  <pre><code>Sub DeleteRows
  'Filter CMReport to delete (Blank) rows.
      With ActiveSheet
          .AutoFilterMode = False
          .Range("A1:G1").AutoFilter
          .Range("A1:G1").AutoFilter Field:=1, Criteria1:="="
          .Range("A1:G1").Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
      End With
  End Sub
  </code></pre>
  
  <p>It will filter the blank rows but will not delete them... it says that no rows are selected. What am I doing wrong.</p>