Программная группировка при экспорте в Excel

6 ячеек в строке заполняются названиями месяцев начиная от следующего за текущим, в строке выше - значение года, относящегося к каждому из этих месяцев:

For i = 1 To 6
' для ноября это будет: декабрь,январь,февраль,март,апрель,май
      .cells(2, 1 + i) = Format(DateAdd("m", i, Date), "mmmm")
' для ноября это будет: 2006,2007,2007,2007,2007,2007
      .cells(1, 1 + i) = Year(DateAdd("m", i, Date))
 Next

можно как-то группировать значения годов? Т.е. для данного примера строка с годами будет такая: одна ячейка - 2005, следующие 5 ячеек сгруппированы в одну со значением 2007.

Из готового кода.... группировка по строкам содержашим Итог а потом по строкам содержащим Всего(второй уровень)

For iRow = kol1 + 13 To kol1 + 11 + kol2
        curCell = ws.Cells(iRow, 2)
        If curCell Like "*Всего" Then
            xl.Rows(iRow).OutlineLevel = 2
        Else
           If curCell Like "*Итог" Then
            xl.Rows(iRow).OutlineLevel = 3
           Else
            xl.Rows(iRow).OutlineLevel = 4
           End If
        End If
   Next

Блин! Стыдно-то как! Надо же так облажаться! Чего мне группировка втемяшалась? Я имел ввиду объединение ячеек с одинаковыми значениями...Ух сейчас меня оттопчут....

Вот наваял, вроде работает, но корявый код какой-то:

 y = Year(Date) 'текущий год
 n = 2 'первая ячейка
For i = 1 To 6
      .cells(2, 1 + i) = Format(DateAdd("m", i, Date), "mmmm")
      .cells(1, 1 + i) = Year(DateAdd("m", i, Date))
       If .cells(1, 1 + i) <> y Then 
          .Range(.cells(1, n), .cells(1, 1 + i - 1)).Merge
           y = .cells(1, 1 + i)
            n = 1 + i
        End If
Next
.Range(.cells(1, n), .cells(1, 1 + i - 1)).Merge