Thanks Pascal. Almost there it seems. The macro puts a "1" in every
cell. I need this to read consecutively. 1, 2, 3, 4, etc.

Sub testnumber()
With Worksheets("M_Formatted Data")
For i = 2 To .Range("D65536").End(xlUp).Row
Cells(i, 1).Value = 1
Next i
End With
End Sub


--
Sandeman
------------------------------------------------------------------------
Sandeman's Profile: http://www.excelforum.com/member.php...o&userid=32440
View this thread: http://www.excelforum.com/showthread...hreadid=529115