Так какой формат даты вы хотите?MM/DD/YYYY
или DD/MM/YYYY
?
Вы можете изменить его, используя
Cells(1, 1).NumberFormat = "DD/MM/YYYY"
И вы можете написать правильную дату, например
Cells(1, 1).Value = DateSerial(2018, 2, 10) 'DateSerial(Year, Month, Day)
Тем не менее, я настоятельно рекомендуюиспользовать ISO 8601 формат даты YYYY-MM-DD
, который является единственным, который не может быть неверно истолкован людьми.