or insert macro

Sub AddOne()

ActiveCell.FormulaR1C1 = "=1&RC[-1]"
Range("B1:B20000").Select
Selection.FillDown
End Sub


--
comotoman
------------------------------------------------------------------------
comotoman's Profile: http://www.excelforum.com/member.php...o&userid=27292
View this thread: http://www.excelforum.com/showthread...hreadid=485001