how to add paste special value in this code?

Hi,

I am copying some data on "Enter date" sheet and paste it on the next blank row of the "summary" sheet. this code works except it does not just paste value.

I use the formula to add today's date on the Enter Data tab but would like to paste as hard coded date on the Summary.

Can anyone please help add this to this code? or create another code that will do that same thing?

 Sheets("Enter Data").Range("a2:d2").Copy Sheets("Summary").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    Sheets("Enter Data").Range("b2:d2").ClearContents
    Range("b2:b2").Select

Many thanks.