VBA для последовательного нумерации строк в столбце

Question

Я хочу последовательно пронумеровать все ячейки на листе 4, начиная с A2 (начинается с 0) для 26000 ячеек в столбце A

Я пытался заставить приведенный ниже код работать, но мне нужна помощь.

Sheet4.Range("A2") = 0
Sheet4.Range("A2").Select
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
  Step:=1, Stop:=26000, Trend:=False

Любой совет / исправления?