Мне удалось решить эту проблему в VBA через новую переменную с типом данных "Дата"
Dim cell As Range
Dim i As Date
For Each cell In Range("...")
i = cell.Value
cell.Value = i
Next cell
Dim cell As Range
Dim i As Date
For Each cell In Range("...")
i = cell.Value
cell.Value = i
Next cell