При помощи Selection.TypeText производится вставка в документ Word, а не в таблицу Excel.  
Будьте внимательнее, копируя код.  
 
Вообще, Ваш макрос можно сократить раз в десять.  
 
 
Зачем использовать конструкции типа  
strNowDate = Format(Date, "dd mmmm yyyy")  
Select Case Left(strNowDate, 2)  
 
когда можно получить текущую дату намного проще:  
Select Case day(now)  
 
Select Case month(now)  
 
Select Case year(now)  
 
А переводить номер года в текст удобно при помощи функции CHOOSE:    
 
Sub test()  
   год_текст = "две тысячи " & Choose(Year(Now) - 2008, "девятого", "десятого", "одинадцатого") & " года"  
   Debug.Print год_текст  
End Sub

Что же касается, Вашего, беспорно интереснейшего варианта, то сейчас попробовал приспособить ваши конструкции, но у меня ничего не вышло.Недостаток опыта и знаний здесь, как говорится, на лицо

Друзья форумчане, притветствую ВАС, а также всех тех , кому не терпится помочь другим любознательным бухгалтерам и прочим. исследователям неизведаного!  
Не сочтите это, пожалуйста, за наглость с моей стороны. Просто, считайте это тонким намеком на толстые обстоятельства, которые позволят довести до логического завершения начатую тему. Может быть …  
А проблема все та же. Как джоделать post_54300.xls, чтобы макрос выдавал на украинском не «Серпень», а «серпня». Либо другой вариант.  
С уважением, Gleod!

Да видел я эту тему! Очень хорошее решение, но как его использовать в этом коде, не кумекаю

Вот, Gleod,функция даты прописью, там только на украинский перевести и чуть-чуть под себя переделать - там всё понятно и коды все открытые...

Gleod, посмотрите что у меня получилось, вроде,пишет всё как надо.  
Но КАК это у меня вышло понятия не имею! Вот взяло и сразу получилось!  
На украинский перевела по памяти - Вы уж подправьте сами.

Бухг милый мой бухгалтер!  
В умелых руках и полено стреляет. А когда делаешь другому человеку приятное от всей души, то тогда БОГ помогает.И сам от сделаного получаешь удовольствие. Одним словом, душа поет, а сердце плачет ...  
Спасибо Вам за работающий макрос и за то, что Вы есть!!!    
Я у Ваших ног,Gleod.