Ошибка алгоритма с присвоением данных в массив - VBA

Формулировка задачи:

Добрых суток! Сносно работается с диапазонами. С алгоритмами не было проблем. Но начала работу с массивами - и алгоритмы, которые использовала на диапазонах, не работают. Вот во вложении пример - сводная таблица программными средствами, типа, Календаря Поступлений от продаж понедельно. То ли я неправильно заполняю массив, то ли где-то надо его обнулять (как и в каком месте?), то ли сам алгоритм не верен. Нужен человек ,который сможет сформулировать словами, что в логике данного алгоритма не так. Алгоритмика важная часть - хочется понять, какой объект или условие не учитывается. Код комментирован - можно понять уровень программирования учащегося :-)))

Решение задачи: «Ошибка алгоритма с присвоением данных в массив»

textual
                            Листинг программы 
                        

                            в моём коде
t = a(i, 1) & "|" & IsoWeekNumber(CDate(a(i, 2)))
а где-то ниже/выше/сбоку функция
Public Function IsoWeekNumber(InDate As Date) As Long
    IsoWeekNumber = DatePart("ww", InDate, vbMonday, vbFirstFourDays)
End Function
                        