You can use a For...Next loop to get a value increasing on each pass.

An example of one is
For i = 1 to 10
Cells(i, "A").value = i
Next i
This would make cells A1 through A10 list the numbers of 1 through 10.

You can start a for...next from 30, so;

for i = 30 to 60

'do this stuff

next i