[Tasos]

Η στήλη που θέλεις να μορφοποιήσεις προφανώς περιέχει κελιά με μορφή "κείμενο" ή κελιά με μορφή "Γενική" που περιέχουν Απόστροφο ( ' ) + την ημερομηνία.

Δοκίμασε:

Sub GhangeNumberFormat()
    With Range("F1:F" & Range("F" & Rows.Count).End(xlUp).Row)
        .NumberFormat = "d/m/yyyy"
        .TextToColumns DataType:=xlFixedWidth, FieldInfo:=Array(0, 4)
    End With
End Sub

Δες και το παράδειγμα στο συνημμένο.

Τάσος