VBA - Создание динамической таблицы и пропорциональное распределение значений на основе переменного члена

Question

Я довольно новичок в VBA и немного искал, но пока не нашел то, что мне нужно.

У меня есть некоторые данные в таблице, которые включают в себя поле Id, сумму комиссии, дату начала и контрактterm.

Из этих данных мне нужно создать еще одну таблицу, в которой в первом столбце есть идентификаторы, а после этого создается заголовок столбца для каждого месяца (начальный (B1) и конечный месяцы (B2), полученные изданные) и равномерно распределяет комиссию по сроку.

Код для разработки заголовков столбцов приведен ниже, но с остальными он не помогает.

Sub tableFill()
  Dim d1 As Date, d2 As Date, Tbl As Range
  d1 = Range("B1").Value
  d2 = Range("B2").Value
  Set Tbl = Range("J6:BV6")
  Call setLabels(d1, d2, Tbl)
End Sub

Sub setLabels(dt1 As Date, dt2 As Date, rng As Range)
    Dim rToFill As Range, r As Range
    Set rToFill = Intersect(rng(1).EntireRow, rng).Offset(0, 0)
    For Each r In rToFill
        dv = DateSerial(Year(dt1), Month(dt1) + i, Day(dt1))
        r.Value = dv
        i = i + 1
        If dt1 + i > dt2 Then Exit Sub
    Next r
End Sub

Любая помощь приветствуется.Спасибо