Here is an example of what I use. It's probably not the best way, but works
for me.
Dim wbName As String
Dim Wb1 As Workbook
Set Wb1 = ActiveWorkbook
Dim Wb2 As Workbook
wbName = Wb1.Sheets("Your Sheet").Range("Your Range")
Workbooks.Add
Set Wb2 = ActiveWorkbook
'Or
'Set Wb2 = Workbooks.Open("C:\Your XLS File.xls")
Wb1.Sheets("Your Sheet").Range("Your Range").Copy
Destination:=Wb2.Sheets("Your Sheet").Range("Your Range")
Application.DisplayAlerts = False
Wb1.Close False
ActiveWorkbook.SaveAs (wbName)
Application.DisplayAlerts = True