As per suggestion i have recorded the macro again, but still having problem with the macro. below is the macro
Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+y
'
Range("K8").Select
ActiveCell.FormulaR1C1 = "YES"
Range("M8").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("M8").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub