VB Code Question - Input Box

[Stan]

I'm trying to use an input box to add some data to cell N4 although after
entering the value in the input box, the cell is still blank. Can someone
help out a rookie code writer? Many thanks!

Sub FixMissingData()

Range("M4:O4").Select
Selection.Insert Shift:=xlDown
Range("M4").Select
ActiveCell.FormulaR1C1 = "Overtime"
Range("N4").Select
InputBox ("Enter Overtime")

End Sub

 

[PCLIVE]

Sub FixMissingData()

Range("M4:O4").Select
Selection.Insert Shift:=xlDown
Range("M4").Select
ActiveCell.FormulaR1C1 = "Overtime"
Range("N4").Value = InputBox ("Enter Overtime")

End Sub

 

[Stan]

Thanks!

Sub FixMissingData()

Range("M4:O4").Select
Selection.Insert Shift:=xlDown
Range("M4").Select
ActiveCell.FormulaR1C1 = "Overtime"
Range("N4").Value = InputBox ("Enter Overtime")

End Sub