[Tasos]

Καλησπέρα!

Δοκίμασε:

Sub test()
    With Range("F1:F" & Range("F" & Rows.Count).End(xlUp).Row)
        .NumberFormat = "d/m/yyyy"
        ' αν δεν υπάρχει αποτέλεσμα αφαίρεσε την απόστροφο από την παρακάτω γραμμή
        '.Formula = .Formula
    End With
End Sub

Καλή συνέχεια!

Τάσος