Ordenar datos insertados por formulario por fecha reciente

Este código me pasaste (esta bien)

Private Sub CommandButton1_Click()
'Por.Dante Amor
    Set h = Sheets("altas")
    'primera fila vacía de la columna A
    u = h.Range("A" & Rows.Count).End(xlUp).Row + 1
    If u = 5001 Then
        MsgBox "Se alcanzó el límite de 5000"
        Exit Sub
    End If
    '
    h.Cells(u, "A") = TextBox1
    h.Cells(u, "B") = TextBox2
    h.Cells(u, "C") = TextBox3
    '
    'cambia la X por la columna que tiene la fecha
    With h.Sort
        .Sort.SortFields.Clear
        .SortFields.Add Key:=h.Range("X2:X" & u), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        'Cambia la A y la Z por el rango de columnas que vas a ordenar
        .SetRange h.Range("A1:Z" & u)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

pero quisiera que se ordenara por fecha reciente (el textbox3 debe tener formato fecha ya lo hice)

Entonces debe empezar a insertarse lo datos a partir de G6 porque en G5 dice : FECHA DE INGRESO.

Se inserta la fecha con su dato y se ordena todo de A ala G teniendo la fecha más reciente