Всем привет.  
Помогите пожалуйста написать модуль на языке VBA по заполнению ячеек датами.  
Пример  
 
А1 12.02.2008 – начало диапазона  
А2 шум (текст, числовые не произвольные значения)  
А3 шум (текст, числовые не произвольные значения)  
А4 13.02.2008  
А5 шум (текст, числовые не произвольные значения)  
А6 шум (текст, числовые не произвольные значения)  
А7 14.02.2008    
А8 шум (текст, числовые не произвольные значения)  
А9 ИТОГО –Конец диапазона  
 
За место шума нужно поставить дату, до даты и так до конца диапазона, который заканчивается ключевым словом.    
 
Результат  
 
А1 12.02.2008 – начало диапазона  
А2 12.02.2008  
А3 12.02.2008  
А4 13.02.2008  
А5 13.02.2008  
А6 13.02.2008  
А7 14.02.2008    
А8 14.02.2008  
А9 ИТОГО –Конец диапазона  
 
растояние между датами всегда динамическое, (меняеться) диапазон от начало до конца то же разный..