Заполните диапазон ячеек на основе другой ячейки, но продолжайте числовой ряд чисел 7,8,9 ...

Question

Это код, который я сейчас использую. Но я хочу, чтобы он взял числовое значение, которое он получает от A2, и увеличил его на 1, когда он заполняет диапазон ColN. Это создаст серию чисел вместо того, чтобы быть одним и тем же числом.

Order = Range("A2")

Range("N2").Select
ActiveCell.FormulaR1C1 = Order
Range("N2").Select
Range("N2", Range("N2").End(xlDown)).Name = "typeColRange"
Selection.AutoFill Destination:=Range("N2:N" & Range("A" & Rows.count).End(xlUp).Row)

Answer 1

Почему бы просто не сделать хороший старый цикл? Иногда просто лучше и важнее, когда вы смотрите на него, легче сказать, что пытается сделать код.

Sub test()

Dim i As Long, lastCell As Long, counter As Long

lastCell = Range("A" & Rows.Count).End(xlUp).Row
counter = Range("A2").Value

For i = 2 To lastCell
    Cells(i, "N") = counter
    counter = counter + 1
Next

End Sub