Fallo al pegar y al transponer fechas con macro

Uso una macro para pegar y transponer 15 fechas y cuando se acaba la macro hay fechas que se muestran con este formato 10/12/2024 y otras como 10/12/24. Me interesa que todas queden como 10/12/24.

No sé a que se puede deber. Alguien me podría echar una mano. Muchas gracias

Sub FECHAS ()

Application.DisplayAlerts = False

Sheets("TRATAMIENTO DATOS").Select

Range("I1:W1").Select

Selection.Copy

Sheets("FECHAS").Select

Range("A1").Select

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

    False, Transpose:=True

Columns("A:A").Select

Application.CutCopyMode = False

Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _

    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _

    Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _

    :=Array(Array(1, 3)), TrailingMinusNumbers:=True

' Aplicar la función DateValue con un formato específico a las celdas en la columna A que se desconfiguran

Dim cell As Range

Dim dateStr As String

For Each cell In Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)

    On Error Resume Next

    dateStr = cell.Value

    ' Convertir la fecha al formato correcto (dd/mm/yyyy)

    If IsDate(dateStr) Then

        cell.Value = Format(CDate(dateStr), "dd/mm/yyyy")

    End If

    On Error GoTo 0

    Next cell

    ' Aplicar formato de fecha a todas las celdas en la columna A

Columns("A:A").Select

Selection.NumberFormat = "dd/mm/yyyy"

End Sub