We don't know how things have been declared but in general terms:

Cells(1,"A").Value = Format(Date,"dddd")
FWIW you can insert static time stamps natively using CTRL + ; (with Custom Format applied to show as Friday)