¿Cómo guardar un libro recién creado con un nombre y fecha, en una ruta específica y darle formato?

Buenas tardes espero contar con su ayuda nuevamente para resolver esta duda. Tengo un código el cual me copia los datos de mi hoja a una nueva pero quiero que lo guarde en la ruta de C con un nombre que sea tickets y le coloque la fecha del dia que se están haciendo (ejemplo si fuera hoy tickets 10-01-2013). Una vez guardado que automáticamente seleccione las columnas de A1:U56 del archivo tickets con la fecha y le de un formato a la letra de negrita, colocando bordes y después seleccione las celdas b1, e1 y también i1 y les de un formato de fecha.

Este es mi código

mio = ActiveWorkbook.Name
Workbooks.Add
otro = ActiveWorkbook.Name
Workbooks("almacen dulces.xlsm").Activate
Sheets(4).Select
Range("A1:C57").Select
Selection.Copy
Workbooks(otro).Sheets(1).Range("a1").PasteSpecial Paste:=xlValues
Range("E1:G57").Select
Selection.Copy
Workbooks(otro).Sheets(1).Range("d1").PasteSpecial Paste:=xlValues
Range("I1:K57").Select
Selection.Copy
Workbooks(otro).Sheets(1).Range("g1").PasteSpecial Paste:=xlValues
Range("m1:o57").Select
Selection.Copy
Workbooks(otro).Sheets(1).Range("j1").PasteSpecial Paste:=xlValues
Range("q1:s57").Select
Selection.Copy
Workbooks(otro).Sheets(1).Range("m1").PasteSpecial Paste:=xlValues
Range("u1:w57").Select
Selection.Copy
Workbooks(otro).Sheets(1).Range("p1").PasteSpecial Paste:=xlValues
Range("y1:aa57").Select
Selection.Copy
Workbooks(otro).Sheets(1).Range("s1").PasteSpecial Paste:=xlValues

Espero contar con su ayuda, Gracias.