I need a code,macro should detect if today is Monday, delete the data with Friday date.

Try this...

Sub Del_Row()
if Format(Now,"DDDD")="Monday" then
For r= 1 to cells(Rows.count,"J").end (xlup).row
if format(cells(r,"J").value,"DDDD")="Friday" then
Cells(r,"J").entirerow.delete
r=r-1
End if
next
End if
End Sub

Totally untested as you haven't provided any workbook..