Не буду долго описывать эту методику. В Интернет много таких приёмов. Напрямую переименовать активную книгу нет возможности, если использовать свойство ActiveWorkbook.Name. Имя можно лишь получить. При создании нового файла или же его сохранении имя файла можно изменить.
Я в предыдущем макросе попытался считывать данные заданные диапазоном на конкретном листе в общий файл сбора. Часто бывают случаи, когда однотипные данные собирают не только в отдельную папку, но и в виде отдельных листов в отдельную книгу для последующей их Консолидации. Если отдельные книги можно собирать в виде отдельных листов одной книги, то есть смысл иметь и обратную операцию.