Data Validation not working with macro

[Henry16]

I've a macro which is designed to insert a new row at the top of a sheet and have the use select from a list and other cells will be automatically filled in.

But, somehow the macro has stopped working in part. In cell B2 it should be copying the data validation so the user is forced to pick from a list. But, for some reason it's stopped doing this and now when the macro is run, B2 is simply a free text cell with no validation.

Can anyone see the problem in the macro:

Sub Insert_Row2()
'
' Insert_Row2 Macro
'

'
Range("Table2[Logged]").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("2:2").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B2:N2").Select
Selection.Font.Bold = False
Range("D2").Select
ActiveCell.FormulaR1C1 = ""
Sheets("Reference").Select
ActiveCell.FormulaR1C1 = ".=IF(C2>"""",NOW(),"""")"
Sheets("Enter Pipeline Here").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]>"""",NOW(),"""")"

Also, is there anyway I can lock the cell so users can't bugger about accidently with the validation?

[:) Sixthsense :)]

Not sure in which cell the validation is present and to which cell you are applying the validation