Ну и зачем тут vba, тут нужна банальная конкатения строк. Функция СЦЕП
P.S. Хотя можно и просто конкатенировать знаком &
В последний стоблец первой строки вставьте формулу типа такой
После этого выделите столбец в формате ячеек поставьте во вкладке выравнивание - переносить по словам.
Ну и протяните эту ячейку на все, при желании поставить выранивание текста по центру