VBA复制粘贴自动筛选后的内容

VBA复制粘贴自动筛选后的内容：

Sub sx()    If Dir("D:\VBA\xx.xls") <> "" Then        Workbooks.Open Filename:="D:\VBA\xx.xls"    Else        GoTo ERR    End If    Range("A1").Select    With Selection                  .AutoFilter Field:=1, Criteria1:=0                  .SpecialCells(xlCellTypeVisible).Copy Sheets("Temp").Range("A1")    End With    ERR: MsgBox "发现非法数据存在，程序终止！", 16End Sub