Need to add Seq (1,2,3...) down row using code

[gheyman]

I need to number my rows down to the last row with data. I want to put the seq in B5 down

I'm using

Dim CBOMLstRw As Long

CBOMLstRw = Sheet2.Range("C" & Rows.Count).End(xlUp).Row


right now I am adding 1 to cell B5 and a formula to add 1 to B5 and copying the formula down to the end and then doing a Paste value to remove the formula. There has to be a better way

THANK YOU FOR SHARING YOUR KNOWLEDGE

 

[footoo]

https://www.mrexcel.com/forum/excel...ers-column-based-last-value-column-b-vba.html