Change code to copy and paste special

[Ingolf]

Hello,

I come back I need little help.
Can anyone help me to change this code:

Set FSO = CreateObject("Scripting.FileSystemObject")
With FSO
If Not .FolderExists(ThisWorkbook.Path & "\" & wks.Range("A2").Text) Then
.CreateFolder (ThisWorkbook.Path & "\" & wks.Range("A2").Text)
Set wb = Workbooks.Add (xlWBATWorksheet)
wb.SaveAs ThisWorkbook.Path & "\" & wks.Range("A2").Text & "\" & wks.Range("B2").Text
wks.Range("E1:AZ50").Copy wb.Worksheets(1).Range("A2")
wb.Close True
End If
End With

Now this code copy range E1:AZ50 from the sheet where I run the code, in file named from cell B2 and I need to copy and paste special that range (I don't need formula but I need to copy all formated cell from that range). Thank you.

 

[Ingolf]

Nobody?

 

[Ingolf]

Anybody?