Trying to increase cell value by 1

[GreenSmoak]

I want to increase the cell value by 1 as you go down. So for example, if cell A1 is 1, I want cell A10 to be 2, Cell A20 to be 3, and so on. There needs to be a gap between them, not necessarily by 10 rows, but it needs to be there. Also, I need this to be a macro that can go on for about 300 or so of these increases.

Thanks.

[shg]

You could enter 1 in A1 and leave A2:A9 empty, then select A1:A9 and drag down.

[GreenSmoak]

That wont work as there is other data and formatting in the cells in between. Essentially I have "pages" that will be printed. They are 36 rows each and the 5th row, column J will be the day (and each page will have it's own day) and thus needs to incrementally increase per each page.

[GreenSmoak]

"Sub Incrementtesting()
'
' Incrementtesting Macro
'

'
Range("J42").FormulaR1C1 = "=R[-38]C+1"
Range("J80").FormulaR1C1 = "=R[-38]C+1"
Range("J118").FormulaR1C1 = "=R[-38]C+1"
Range("J156").FormulaR1C1 = "=R[-38]C+1"
End Sub"


This is what I have written so far. That takes care of the first 5 pages, but I need it to do this for about 200+ pages, but I don't want to make this into a ridiculously long macro. Is there a way to condense this and just get it to repeat all the way down the worksheet?

[shg]

Sub GS()
  Const sCol        As String = "A"
  Const iBeg        As Long = 4
  Const iEnd        As Long = 100
  Const iStp        As Long = 38
  Dim iRow          As Long

  Cells(iBeg, sCol).Value = 1
  For iRow = iBeg + iStp To iEnd Step iStp
    Cells(iRow, sCol).FormulaR1C1 = "=R[" & -iStp & "]C+1"
  Next iRow
End Sub