Quiero que mi macro ordene de mas reciente a mas antiguos un rango de fechas

Un amigo me dio una macro para ordenar un rango de fecha, pero esta macro ordena de mas antiguas a mas nueva un rango de fecha, pero necesito que la macro ordene de mas reciente a mas antiguas, les dejo la linea de codigo y espero que alguien pueda ayudarme.

Sub actualizar()
'Por.DAM
Set h1 = Sheets("REGISTRO DE LM")
With h1.Sort
.SortFields.Clear: .SortFields.Add Key:=Range("F9:F99")
.SetRange Range("A1:H9999"): .Header = xlYes: .Apply

End With
End Sub