新生成的xls文件一直报错，导致无法上传系统

大表良哥

各位大佬，好;

       我写了一个根据sheet2自动创建成副本格式为XSL的文件，但是打开会一直报错，然后上传不了心痛，辛苦各位大佬帮忙看下

代码：

Sub fencun()
Application.ScreenUpdating = False
Sheets(2).Select
Sheets(2).Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues
Sheets(2).Copy
A = ThisWorkbook.Worksheets(2).Range("b3")
b = ThisWorkbook.Worksheets(1).Range("a1")
With ActiveWorkbook
.SaveAs Filename:=b & "\" & A & ".xls"
.Close
End With

End Sub

taller