VBA заполнить диапазон с конкретной ячейкой

Question

В течение рабочих листов я есть «Даты» в Cells(1,1), Cells(1,10), Cells(1,19), Cells(1,28) .....

У меня есть переменная с именем nr_rows ведьму в моем случае 860, и мне нужно поставить под каждым «Датами» результаты от Row 1 в Row 2 до Row 860.

Результаты должны быть как:

 |  A   |  J   |  S   |..... 
----------------------------------------------------------- 
    1 | 21.02.16 16:20 | 21.02.16 16:21 | 21.02.16 16:22 |..... 
    2 | 21.02.16 16:20 | 21.02.16 16:21 | 21.02.16 16:22 |..... 
    3 | 21.02.16 16:20 | 21.02.16 16:21 | 21.02.16 16:22 |..... 
..................................................................... 
860 | 21.02.16 16:20 | 21.02.16 16:21 | 21.02.16 16:22 |..... 

Это я то, что я сделал, но у меня есть ошибка 1004

nr_rows is 860

col = 1 
For col = 1 To 256 
    For n = 1 to nr_rows 

ActiveSheet.Cells(1, col).Select 
    Selection.AutoFill Destination:=Range(Cells(1, col), Cells(n,col)) 
    col = col + 9 

    Next n 
Next col 

Answer 1

отредактирован после уточнений параметров порядка о выходе AutoFill() метод

использовать это:

Option Explicit 

Sub main() 
    Dim nr_rows As Long, col As Long 

    nr_rows = 860 
    With ActiveSheet 
     For col = 1 To 256 Step 9 
      .Cells(1, col).Resize(nr_rows).Value = .Cells(1, col).Value 
     Next col 
    End With 
End Sub