Доброго времени суток.
Как осуществить сохранение листа в новой книге, что бы не выбирать постоянно путь, а что бы он брал его из ячейки или прописан в макрос (сетевой путь таков "\\srv-nas\Warehouse\Накладные"), Эксель файл лежит так же в сетевой папке "Warehouse".
В пункте 4 укажите полное имя файла. Также в пункт 4 можно подставлять полное имя файла из ячейки. Если не знаете, как, то спросите.
Макрос
Sub макрос()
Dim bk_act As Workbook, bk_new As Workbook
'1. Присваиваем имя "bk_act" активному файлу, если вдруг потом понадобится к нему обратиться в коде.
' Т.к. после создания нового файла, активным файлом станет новый файл.
Set bk_act = ActiveWorkbook
'2. Копирование активного листа в новый пустой файл.
' Если у метода "Copy" ничего не указывать, то будет создан пустой файл
' и в него будет скопирован лист.
ActiveSheet.Copy
'3. Присваиваем имя новому файлу.
Set bk_new = ActiveWorkbook
'4. Сохранение нового файла.
' Здесь укажите полное имя нового файла (путь + имя).
bk_new.SaveAs Filename:="C:\Users\User\Desktop\новый файл.xlsb", FileFormat:=xlExcel12
End Sub