Как скопировать из массива1 (I, 1) в массив1 (J, 1) - тот же массив VBA

Question

Я пытался скопировать и вставить элемент в массиве1 в тот же массив.

Dim array1 As Range  'the range I had assign the column range into it    
Dim remarkrange As Range 'the range I had assign the column range into it    

For I = LBound(remarkrange) To UBound(remarkrange)
    For J = LBound(remarkrange) To UBound(remarkrange)
        Range("A" & I & ":AD" & I).Copy Range("A" & J & ":AD" & J)
    Next J
Next I

Предположим, что я изменил массив1 на Dim array1() As variant как мне сделать ту же функцию копирования, которая работает смассив, который действует как функция копирования выше?Могу ли я узнать способ ее решения, спасибо