You could create a new workbook, copy the worksheet, and then save the
new workbook. COde for that below...

Dim NewFile As String
NewFile = "C:\NewFile.xls"

'Select what you want to copy
Range("A2:I200").Select
Selection.Copy

'Create your new workbook and paste
Workbooks.Add
ActiveSheet.Paste

'Save it
ActiveWorkbook.SaveAs Filename:=NewFile, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False,
_
CreateBackup:=False