Using VBA to print and save as a range of cells

I require help to write a macro to print a sheet from a workbook and save that sheet as a user defined file. What is listed below saves the entire workbook as the same file.

ActiveWindow.SelectedSheets.PrintPreview
ChDir "C:\Documents and Settings\dnoonan\My Documents\Estimates"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\dnoonan\My Documents\Estimates\"".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

When the script saves as i want to define the file name the spreadsheet will be saved as.

I have a large spreadsheet with pages of data and would like the macro to print a rage of cells in one worksheet and save that range of cells to a file