обязательно ли через VBA?
Просто там я не вижу смысл растягивать.
Если растягивать и нужна формула - могу написать формулу.