VBA Modifcation

[chally3]

Good afternoon,

Could someone possibly help with amending the VBA below as our VBA guru has left our company.
All I need the amendment to be is in Column J add the comment "To be updated" (from cell J2 onwards for each row where there is data in the prior column)


Thank you

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
      On Error GoTo ee
    Cells.Replace What:="SOLFILE.", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        
     Range("A1").Select
    ActiveCell.FormulaR1C1 = "DUE DATE"
      Range("B1").Select
    ActiveCell.FormulaR1C1 = "SO NO"
      Range("C1").Select
    ActiveCell.FormulaR1C1 = "SO LINE"
      Range("D1").Select
    ActiveCell.FormulaR1C1 = "CUST"
      Range("E1").Select
    ActiveCell.FormulaR1C1 = "PART NO"
      Range("F1").Select
    ActiveCell.FormulaR1C1 = "DESCRIPTION"
      Range("G1").Select
    ActiveCell.FormulaR1C1 = "QTY"
      Range("H1").Select
    ActiveCell.FormulaR1C1 = "Q BOND"
      Range("I1").Select
    ActiveCell.FormulaR1C1 = "WO/PO NO"
      Range("J1").Select
    ActiveCell.FormulaR1C1 = "STATUS"
      Range("K1").Select
    ActiveCell.FormulaR1C1 = "ETA"
      Range("L").Select
    ActiveCell.FormulaR1C1 = "ACTION"
      
    

ee:
End Sub

Private Sub Workbook_Open()

End Sub

 

[Fluff]

How about

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   On Error GoTo ee
   Cells.Replace What:="SOLFILE.", Replacement:="", LookAt:=xlPart, _
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
      ReplaceFormat:=False
        
   Range("A1").Value = "DUE DATE"
   Range("B1").Value = "SO NO"
   Range("C1").Value = "SO LINE"
   Range("D1").Value = "CUST"
   Range("E1").Value = "PART NO"
   Range("F1").Value = "DESCRIPTION"
   Range("G1").Value = "QTY"
   Range("H1").Value = "Q BOND"
   Range("I1").Value = "WO/PO NO"
   Range("J1").Value = "To be updated"
   Range("K1").Value = "ETA"
   Range("L").Value = "ACTION"
      
    

ee:
End Sub