I found the macro copied below for filling numbers to the end of data and
then modified it for my start point and columns and then added lines for
unprotect and protect and then added it as a macro button on the protected
sheet.
Re: Number Cells Until End Of Data Macro
--------------------------------------------------------------------------------
Untested...
VB: AutoLinked keywords will cause extra spaces before keywords. Extra
spacing is NOT transferred when copy/pasting, but IS if the keyword uses
"quotes".
Sub Add_Numbers()
Dim r As Range, c As Range
Set r = Range("A2:A" & Range("B65536").End(xlUp).Row)
For Each c In r
c.Value = c.Row - 2
Next c
Set r = Nothing: Set c = Nothing
End Sub