VBA increment when copy over to different sheet

[Emoncada]

I current have script to copy over ranges to last row over to a different. I need to be able to have column G to start from a value (8501) and every cell below it increment + 1. Until it reaches last row in a column J.

Example
G2 = 8501
G3 = 8502
G4 = 8503

Any help would be appreciated.

 

[rpaulson]

try this

Sub Do_it()

st = 8501
lr = Cells(Rows.Count, "J").End(xlUp).Row

For r = 2 To lr
Cells(r, "G") = st
st = st + 1
Next r

End Sub

hth,

Ross

 

[Emoncada]

That worked rpaulson

Much Appreciated.