title: Remove filter in Excel form an imported Access data file in VBA
body: <p>I import from Access to Excel a data (tables) file, but I don't manage to remove the filter. I get a 1004 error (Delete of Range is failed). I also can't remove it by hand.</p>
  
  <pre><code>Sub Openaccessdatafile()
  
  'Niet blad updaten
  Application.ScreenUpdating = False
  
  Sheets.Add.Name = "Gegevens alginaten"
    Set sh = ThisWorkbook.Sheets("Gegevens alginaten")
  LR = sh.Cells(Rows.Count, "A").End(xlUp).Row
  Filename = Application.GetOpenFilename("Excel files (*.xls*), *.xls*")
   MsgBox Filename
  If Filename &lt;&gt; False Then
    Workbooks.Open (Filename)
      ActiveSheet.UsedRange.Copy sh.Range("A" &amp; LR)
    ActiveWorkbook.Close
   Sheets("Start").Cells(2, 5).Value = "Ok"
  Else
   MsgBox "Geen bestand aangeklikt."
   Application.DisplayAlerts = False
   Sheets("Gegevens alginaten").Delete
   Application.DisplayAlerts = True
  End If
  
  'Wel blad updaten
  Application.ScreenUpdating = True
  Sheets("Start").Select
  End Sub
  </code></pre>