ActiveWorkbook.SaveAs Filename:=iPath & iName & ".xlsx"   

Sub test()
    Dim iPath$, iName$
    iPath = "Y:\UBO\#1. ОРиТ\#РЕЗЕРВЫ\Для Данияра" & Application.PathSeparator
    Worksheets("Итоги").Copy   '1) Копировать и переместить лист в новую книгу
    iName = Worksheets("Итоги").[a1].Value    '4) Наименование новой книги присвоить как в ячейке А1
    ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value     '2) Разорвать все связи
    ActiveWorkbook.SaveAs Falename:=iPath & iName & ".xlsx"    '3) Сохранить этот лист в определенную папку, путь к которой известен
End Sub

Sub Макрос1()
Dim Директория As Variant
Dim Название_листа As Variant
Dim Текущая_дата As Date
Dim Номер_по_порядку As Variant

Application.ScreenUpdating = False
On Error Resume Next

Sheets("Итого").Select
Текущая_дата = Range("A1").Value
Номер_по_порядку = Range("A2").Value
Название_листа = ActiveSheet.Name

Sheets("Итого").Copy
ActiveWorkbook.SaveAs Filename:=Директория & Название_листа & "_" & Текущая_дата & "_№" & Номер_по_порядку & ".xls", FileFormat:=xlNormal
ActiveWindow.Close

Sheets("Упаковочный лист").Select
Номер_по_порядку = Номер_по_порядку + 1
Range("I2").Value = Номер_по_порядку
ActiveWorkbook.Save

Sheets("Печать").Select

Application.ScreenUpdating = True
End Sub