For J = 9 To Range("STOCK!A65536").End(xlUp).Row
ActiveSheet.Unprotect
Cells(J, 1).Select
With Selection
.Clear
.NumberFormat = "@"
.HorizontalAlignment = xlRight
.VerticalAlignment = xlCenter
.Interior.ColorIndex = 37
.Font.Bold = True
.Font.Name = "Arial"
.Font.Size = 12
.Locked = False
.FormulaHidden = False
End With
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next J