цикл для копирования произвольного блока

[nub]

есть столбец А(m):A(n) с заданным количеством строк, его необходимо скопировать определённое число раз (от 1 до 300) в другие столбцы, начиная с заданной ячейки Cell(i;j), помогите, пожалуйста... моей, никакой, квалификации не хватает....

[nub]

сорри за дубль, модераторы, пожалуйста удалите повтор

[packer]

есть столбец А(m):A(n) с заданным количеством строк, его необходимо скопировать определённое число раз (от 1 до 300) в другие столбцы, начиная с заданной ячейки Cell(i;j), помогите, пожалуйста... моей, никакой, квалификации не хватает....

Код: Выделить всё

Sub copycol()
'Копируем столб A1:A20 99 раз начиная с ячейки B1, C1, D1 ... 
Dim i As Long
For i = 2 To 100
Range("A1:A20").Copy Destination:=Range(Cells(1, i), Cells(1, i))
Next i
End Sub

Что поменять в коде для копирования в произвольные места, Вы, надеюсь, догадаетесь.

[nub]

Огромное спасибо!!!!