Заполнение листа данными vba. массивом

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

Всем привет. ребят, вопрос такой. Есть ли возможность с помощью vba заносить данные в лист с помощью массива? Сейчас работает вот такой код. Но в целях производительности хочу переделать, так как после каждой строки отладчик обрабатывает функцию (написанную), которая вытягивает данные с интернета, а это не очень быстро. Вот думаю если разом все записать, будет шикарно.

                    Листинг программы
                
 
                        
                          
                    
reestr = Sheets("КП (2)").Cells(1, 2)
    Sheets("Реестр").Cells(reestr, 1) = Date
    Sheets("Реестр").Cells(reestr, 2) = Time()
    Sheets("Реестр").Cells(reestr, 3) = naimenovanie
    Sheets("Реестр").Cells(reestr, 4) = Mail.From
    Sheets("Реестр").Cells(reestr, 5) = Mail.To
    Sheets("Реестр").Cells(reestr, 6) = Mail.CC
    Sheets("Реестр").Cells(reestr, 7) = Mail.Subject
    Sheets("Реестр").Cells(reestr, 8) = summa
    Sheets("Реестр").Cells(reestr, 9) = srok2
    Sheets("Реестр").Cells(reestr, 10) = pobeda
    Sheets("Реестр").Cells(reestr, 11) = inn
    Sheets("Реестр").Cells(reestr, 12) = region
    Sheets("Реестр").Cells(reestr, 13) = telefon
    Sheets("Реестр").Cells(reestr, 14) = data_pr
    Sheets("Реестр").Cells(reestr, 15) = Mail.HTMLBody
   Sheets("КП (2)").Cells(1, 2) = reestr + 1

Решение задачи: «Заполнение листа данными vba. массивом»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim M(1 to 15)
    M(1) = Date
    M(2) = Time()
    M(3) = naimenovanie
    M(4) = Mail.From
    M(5) = Mail.To
    M(6) = Mail.CC
    M(7) = Mail.Subject
    M(8) = summa
    M(9) = srok2
    M(10) = pobeda
    M(11) = inn
    M(12) = region
    M(13) = telefon
    M(14) = data_pr
    M(15) = Mail.HTMLBody
    Sheets("Реестр").Cells(reestr, 1).Resize(, 15) = M