title: VBA - Delete Visible Rows After Filter Applied
body: <p>I have the two Macro's which filters a worksheet column by date and then delete's the irrelevant columns.</p>
  
  <p>However, it is very buggy and I need some help to correct that please.</p>
  
  <p>This is what the second Macro is supposed to do:</p>
  
  <p>1) <strong>Simply delete the visible rows after the filter is applied, except the first row (headers)</strong> - Currently, it deletes ALL visible rows including the first row, even though I have the <code>Offset</code> function in my code.</p>
  
  <p>2) <strong>Remove all filters</strong> - This is working fine now</p>
  
  <pre><code>Sub DeleteVisibleRows()
  
  Dim ws1 As Worksheet
  Dim WorkRng As Range
  
  Set ws1 = ActiveWorkbook.Sheets("Consolidated")
  
  On Error Resume Next
  
  Set WorkRng = Application.Selection
  
  Application.ScreenUpdating = False
  With ws1
  
  WorkRng.Offset(1, 0).Rows.SpecialCells(xlCellTypeVisible).EntireRow.Delete
  
  ws1.AutoFilterMode = False
  
  End With
  
  Application.ScreenUpdating = True
  End Sub
  </code></pre>