Корректное занесение видимых ячеек в переменную типа Range - VBA

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

в диапазоне D:AT имеется разбивка по годам ( 2015-2021) из них 2017-2018-2019 имеют дополнительные разбивки по годам, которые сгруппированы. Кодом ниже копирую значения из определенных строк и вставляю в другой диапазон - код работает отлично, делает все как надо. После этого Добавил переменную i as Range. И данной переменой задал значения selection ( так же в коде ниже). И проблема в том, что если открыть Locals windows и разгруппировать value2 то будет видно что в set i попали только первые два значения (2015 и 2016) и года после группированных ячеек( 2017-2021) туда не попали. И вопрос как сделать чтобы все значения туда попадали так же используется set i. И какова вообще природа такого бага/глюка

Dim i As Range
     Range("D8:AT8").Select
     Selection.SpecialCells(xlCellTypeVisible).Select
     Selection.Copy
Set i = Selection   
     Range("AS14").Select
     Selection.PasteSpecial Paste:=xlPasteValues

Решение задачи: «Корректное занесение видимых ячеек в переменную типа Range»

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

                            Dim r As Range, c As New Collection
Set r = Range("D8:AT8").SpecialCells(xlVisible)
For Each r In r.Areas
    c.Add r
Next
Stop
                        