Macro to enter record number in column A

[Sandeman]

I suspect this is pretty simple. I need a macro to insert in column A a record number beginning in cell A2 and running the length of the data, which will vary. The number of records could be linked to the information in column D, which will always have data in every cell for the length of the sheet.

Many thanks.

[papou]

Hello
With Worksheets("YourSheet")
For i = 2 to .Range("D65536").End(xlUp).Row
..Cells(i,1).Value = 'Your Number here
Next i
End With

HTH
Cordially
Pascal

[Sandeman]

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

[papou]

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

HTH
Cordially
Pascal

[Sandeman]

Thank you Pascal. C'est parfait.