Группировка колонок в плавающим диапазоне - VBA

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

Как группировать от B:B колонки с левой стороны до плавающей колонки с правой (с правой стороны каждый день количество колонок увеличивается на 10)

Гуру ВБА, отзовитесь, плз. Как группировать колонки с учётом условия задачи в тексте заявки

Решение задачи: «Группировка колонок в плавающим диапазоне»

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

                            Private Const startDate = #9/12/2016#
 
Private Sub Auto_Open()
    Worksheets(1).Range("B:B").Offset(, (Date - startDate) * 10).Resize(, 10).Group
End Sub
                        