How to paste date value with their format with vba?

Question

Below code is working good except Date value. In my active sheet range B8, I have typed following formula (=TEXT(NOW(),"DD-MM-YYYY"))

But when I run below m