Преобразовать дату. текст -> дата

Public Sub www()
    Dim r As Range
    With ActiveSheet
        Set r = Intersect(.UsedRange, .[A:A]).Offset(1)
        r.FormulaLocal = r.FormulaLocal
    End With
End Sub