Быстро записать диапазон ячеек с листа Excel в массив и обратно - VB

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

Требуется записать за один раз (без поэлементного перебора) диапазон с листа Excel в массив пользовательского типа данных и далее так же за один раз выгрузить этот массив в другой диапазон.
Для массивов типа Variant делал следующим образом:

Dim TestArray as Variant
TestArray=Range("A5:C6").Value   ' Запись диапазона в массив
Range("A15:C16").Value=TestArray   ' Запись массива в диапазон

Как проделать подобное с массивом пользовательского типа данных?

Решение задачи: «Быстро записать диапазон ячеек с листа Excel в массив и обратно»

textual
                            Листинг программы 
                        
                            Dim TestArray() As Variant
TestArray = Range("C11:C15,E11:E15").Value ' Запись диапазона в массив
Range("P11:Q15").Value = TestArray ' Запись массива в диапазон