this will create a new workbook - then refer to this name when you do your pastes


Workbooks.Add
ActiveWorkbook.SaveAs FileName:= _
"C:\put your file name with directory here.xls"