Ordinamento Automatico cartella di lavoro

Ciao a tutti non riesco a risolvere un problema di ordinamento automatico delle celle excel con VBA.
Devo ordinare automaticamente in ordine di data ascendente l'elenco dei corsi. La cartella funziona con un modulo di inserimento per inserire i dati nelle colonne D12:L12. Le colonne B12; C12, M12 ed N12 contengono delle formule di inserimento automatico dei dati in base al contenuto inserito nelle celle.
La mia esigenza è di rendere automatizzato l'ordine ascendente dei corsi per data, poichè l'inserimento manuale nel modulo dei corsi può avvinire in modo casuale. Vi allego il file esempio in cui i dati non sono ordinati, in quanto il codice che ho inserito in VBA non mi funziona.
Spero di essere stato abbastanza chiaro nella spiegazione. Ringrazio chiunque riesca ad aiutarmi.

ciao
non l'ho provata
il problema sono le virgolette "
le devi cambiare non sono quelle giuste

---

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Worksheets("Diario corsi").Range("B13:L10000").Sort Key1:=Range("D13"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

---

Ciao Federico460, grazie per l'aiuto. Ho provato il tuo codice ma non gira. Non aggiorna i dati in ordine crescente e la colonna rimane inalterata. Da cosa può dipendere??