Dear Denis,
You can refer the below code to achieve this.
Sheets("Sheet1").Select
Sheets("Sheet1").Copy
ChDir "C:\Users\TEMP\Desktop"
ActiveWorkbook.SaveAs Filename:="C:\Users\TEST\Desktop\TEST1.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Change the Sheet name which you wanted to save it seperately and then specify the path & filename with extension(in the format you want to save).
Thanks
Vijayendra