EN UN MODULO
Copias estos
sub copiarhojas ()
libro1 = ActiveWorkbook.Name
nombre = InputBox("Nombre del archivo")
Workbooks.Add
libro2 = ActiveWorkbook.Name
Workbooks(libro1).Activate
sheet1.Copy after:=Workbooks(libro2).Sheets(Workbooks(libro2).Sheets.Count)
Hoja1.Copy after:=Workbooks(libro2).Sheets(Workbooks(libro2).Sheets.Count)
ActiveWorkbook.SaveAs nombre
ActiveWorkbook.Close False
end sub
Sheet1 o hoja1 son las hojas que quieres copier en el Nuevo libro
Inputbox te la opcion de darle el nombre al Nuevo libro
Libro1 este hace referencia a tu libro original
Libro2 este hace referencia tu Nuevo libro
Si te funciona no olvides valorar