Выберите все ячейки на листе, которые содержат даты и выполните:
Sub UK()
Selection.NumberFormat = "dd/mm/yyyy"
End Sub
Действие также можно выполнить вручную.
(При необходимости макрос также может найти все ячейки даты для вас) :
Sub konvert()
Dim cell As Range, usa As String, uk As String
usa = "mm/dd/yyyy"
uk = "dd/mm/yyyy"
For Each cell In ActiveSheet.UsedRange
If cell.NumberFormat = usa Then cell.NumberFormat = uk
Next cell
End Sub