Denis

Напр:
ИНДЕКС(Именованный_Диапазон;1;2;1)
ОБЛАСТИ(Именованный_Диапазон)
СТОЛБЕЦ(Именованный_Диапазон)
СТРОКА(Именованный_Диапазон)
И другие функции для работы с ссылками (см. функции "ссылки и массивы).

После Workbooks.Add xlWBATWorksheet
вставьте
ActiveSheet.Name = ThisWorkbook.ActiveSheet.Name

Можно и без регулярных выражений, исключительно функциями, напр. так:
=ЕСЛИОШИБКА(ПРАВСИМВ(RC[-1];ДЛСТР(RC[-1])-ПОИСК(" ";RC[-1]; ПОИСК(" ";RC[-1])+1));"")
Здесь RC[-1] - соседняя (слева от клетки с формулой) клетка. В клетку с формулой копируется все что после первых двух пробелов (двух слов). Если нужно переносить меньше слов, вложить во второй "ПОИСК" еще один поиск, в качестве 3-го параметра (стартовой позиции для поиска), етц.