¿Cómo exportar 2 hojas de un libro a otro nuevo?

Hola, he hecho una macro para exportar una hoja de un libro a otro que es nuevo. Pero no se como hacerlo para exportar 2 hojas de mi libro lllamado "backlog" a otro libro nuevo con nombre"copia_de_backlog". La hoja 2 que quiero exportar se llama "Gráfico".
Gracias por la ayuda

:mio=ActiveWorkbook.Name
Ruta=ActiveWorkbook.Path & "\"

Workbooks.Add
otro = ActiveWorkbook.Name
Workbooks(mio).Activate
Sheets("Backlog").Copy before:=Workbooks(otro).Sheets(1)
Workbooks(otro).Activate
ActiveWorkbook.SaveAs "C: 'ruta' & "Copia_de_backlog"
ActiveWorkbook.close False
Msg "la hoja se ha exportado a un libro llamado: Copia_de_backlog" & Chr(13)_ "guardado en el directorio" & 'ruta'