Query: is that December 7 or July 12?
In Code, convert Purchase Date to MS Date format, (decimal number,) then place Date into cell.
Purchase Date is probably a String. Microsoft application Dates are stored as decimal numbers that Excel displays as Strings. Test this by formatting the date cells as numbers. Then, does the 12/07/2018 cell display as a number?
Note: CDate requires setting the Application's Locale setting to English(UK)
'verbose. international
Dim Dte as Double
Dte = Cdate(PurchaseDate)
Cell = Dte
OR
'not international
Cell = Format(CDate(PurchaseDate), "dd/mm/yyyy")
OR
'International. allows other formatting of Cell
Cell = CDate(PurchaseDate)
BTW, IMO, the best international format is "MMM dd, yyyy" to display the month name vs month number.