title: Why is AutoFilter being applied three rows before the specified range
body: <p>The following code applies autofilter to several worksheets from date criteria set in worksheet "'Grand Totals'!B1", applying to worksheet range A6, which is formatted as date.  Rows 1-5 contain headers and formulae. But, rows 3-5 are disappearing along with the filtered rows beginning in A6. Can anyone see why? According to what I know, everything above row A6 should remain visible. Thanks again for your help.</p>
  
  <p>Sub ApplyFilterDate()</p>
  
  <pre><code>    Dim Ws As Worksheet
      Application.ScreenUpdating = False 'Turn off ScreenUpdating to speed filtering
          For Each Ws In ActiveWorkbook.Worksheets
              If Ws.Name &lt;&gt; "Grand Totals" Then
                  Ws.Activate
                  Ws.AutoFilterMode = False 'Remove any existing filters
                  Ws.Range("A6").AutoFilter Field:=1, Criteria1:=Range("'Grand Totals'!B1").Text
                  Range("G2").Activate
                  Center_it 'Puts next data entry cell in approximate center of screen
              End If
          Next
      Sheet1.Activate
      Range("B2").ClearContents
      Range("B1").Interior.ColorIndex = 3 'Set color of cell showing filter date
      Range("B1").Activate
      Application.ScreenUpdating = True 'Turn on ScreenUpdating
  </code></pre>
  
  <p>End Sub</p>