Sub Macro1()
'
' Macro1 Macro
' Macro Recorder in action !
'
'
Range("O1").Select
ActiveCell.FormulaR1C1 = _
"=RC[-14]&""-""&RC[-11]&""-""&RC[-9]&""-""&RC[-8]&""-""&RC[-7]&""-""&RC[-6]&""-""&RC[-5]&""-""&RC[-4]&""-""&RC[-3]&""-""&RC[-2]&""-""&RC[-1]"
Range("P1").Select
ActiveCell.FormulaR1C1 = _
"=IF(COUNTIF(C[-1],RC[-1])>1,""Duplicate"",""Not duplicate"")"
Range("O1:P1").Select
Selection.AutoFill Destination:=Range("O1:P28"), Type:=xlFillDefault
Range("R1").Select
End Sub