title: error 438 Object doesn't support this property filtered table copy and paste
body: <p>I keep getting error 438  Object doesn't support this property.</p>
  
  <p>For: <code>wb1.SpecialCells(xlCellTypeVisible).Copy</code></p>
  
  <p>I am trying to filter a table and copy paste it into a new CSV.  I have declared the workbook. I have also tried sht2.Specialcells as well as 
    <code>wb1.Range("AA2:AI222").SpecialCells(xlCellTypeVisible).Copy</code>  </p>
  
  <p>My full code is below:</p>
  
  <pre><code>' Filtered Table
  Sub Auto_close13()
  '
  ' Macro2 Macro
  '
  Dim wb1 As Excel.Workbook
  Dim wb2 As Excel.Workbook
  Set wb2 = Workbooks.Open("C:\Ha.csv")
  Set wb1 = Workbooks.Open("C:\1zzThe Betting System.xlsm")
  
  Dim sht1 As Worksheet
  Dim sht2 As Worksheet
  Dim copyRange As Range
  
  Set sht1 = wb1.Sheets("Sheet1")
  Set sht2 = wb2.Sheets("Ha")
  
  With wb1.Sheets("Sheet1")
      Range("AA2").Select
      If Application.WorksheetFunction.CountA(.Cells) &lt;&gt; 0 Then
          lastRow = .Cells.Find(What:="*", _
          After:=.Range("AA2"), _
          Lookat:=xlPart, _
          LookIn:=xlFormulas, _
          SearchOrder:=xlByRows, _
          SearchDirection:=xlPrevious, _
          MatchCase:=False).Row
      Else
          lastRow = 1
      End If
  End With
  
  ''Workbooks("1zzThe Betting System.xlsm").Activate
  ''sht1.Activate
  sht1.Range("AA2").Select
  sht1.ListObjects.Add(xlSrcRange, , xlYes).Name = _
  "Table1"
  sht1.Range("Table1[#All]").Select
  sht1.ListObjects("Table1").Range.AutoFilter Field:=9, Criteria1:= _
      "&gt;=-1000000000000", Operator:=xlAnd, Criteria2:="&lt;=1000000000000000"
  
  ''sht1.Activate
  Application.DisplayAlerts = True
  wb1.Range("AA2:AI222").SpecialCells(xlCellTypeVisible).Copy
  Application.DisplayAlerts = True
  Set wb2 = Workbooks.Open("C:\Ha.csv")
  Application.DisplayAlerts = True
  wb2.Sheets("Ha").Paste
  wb2.SaveAs Filename:= _
  "C:\Ha.csv", FileFormat:= _
  xlCSV, CreateBackup:=False
  
  Workbooks("Ha.csv").Close
  ''wb1.Close
  
  End Sub  
  </code></pre>