Excel - Copiar hoja excel en otro archivo mediante macro

Sub GenerarArchivo()

Dim fechaArchivo As Date, nombreArchivo As String

    nombreArchivo = ActiveWorkbook.FullName           'tomo la ruta completa del archivo original

    fechaArchivo = Worksheets("Resumen").Cells(1, 11)     'tomo la fecha del reporte

    Application.DisplayAlerts = False

    'copio las hojas a otro archivo

    Sheets(Array("Ventas Movil", "Resumen", "Detalle x Marca", "Detalle x Canal", "Tablero")).Select

    ActiveWindow.SelectedSheets.Copy

    'convierte las FORMULAS en VALORES de todas las hojas

    Sheets("Ventas Movil").Select

    Sheets("Ventas Movil").Cells.Select

    Application.CutCopyMode = False

    Selection.Copy

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Sheets("Resumen").Select

    Sheets("Resumen").Cells.Select

    Application.CutCopyMode = False

    Selection.Copy

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Sheets("Detalle x Marca").Select

    Sheets("Detalle x Marca").Cells.Select

    Application.CutCopyMode = False

    Selection.Copy

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Sheets("Detalle x Canal").Select

    Sheets("Detalle x Canal").Cells.Select

    Application.CutCopyMode = False

    Selection.Copy

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

' borra el boton negritas

    Worksheets("Ventas Movil").Select

    Worksheets("Ventas Movil").Shapes.Range(Array("b_negritas")).Select

    Selection.Delete

' borra todas las imagenes de la hoja Tablero

    Worksheets("Tablero").Select

    Worksheets("Tablero").Shapes.Range(Array("Imagen 1", "Imagen 3", "Imagen 4", "b_ActualizarCambio", "b_AbrirMenu")).Select

    Selection.Delete

' guardo el archivo con el mismo nombre del original con la fecha del reporte al final 

    Worksheets("Tablero").Select

    ActiveWorkbook.SaveAs Filename:=Left(nombreArchivo, Len(nombreArchivo) - 5) + " " + Format(fechaArchivo, "dd-mm-yyyy") + ".xlsx"

    ActiveWorkbook.Close

    Worksheets("Resumen").Select     'deja seleccionada la hoja Resumen del archivo original

End Sub

Sub GuardarHoja()

    NombreLibro = Split(ActiveWorkbook.FullName, ".")

    ActiveSheet.Copy

    Application.DisplayAlerts = False

    ActiveWorkbook.SaveAs NombreLibro(0) & "_" & MonthName(Month(Now())), 56

    Application.DisplayAlerts = True

    ActiveWorkbook.Close False

End Sub