Ciao, prova a vedere se ho capito (avevo un tuo vecchio allegato così ho fatto delle prove)

Inserisci questo codice dopo End Sub della Sub SOMMA() e prima dell'inizio di Private Sub EsportaDati()

Private Sub Ordina_ElencoOrdini()
    Dim lo As ListObject
    
    Set lo = ThisWorkbook.Worksheets("Elenco Ordini").ListObjects("Tabella2")
    lo.Sort.SortFields.Clear
    
    lo.Sort.SortFields.Add _
        Key:=lo.ListColumns(1).Range, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    lo.Sort.SortFields.Add _
        Key:=lo.ListColumns(7).Range, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    lo.Sort.SortFields.Add _
        Key:=lo.ListColumns(8).Range, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
                
    With lo.Sort
        .Header = xlYes
        .MatchCase = False
        .Apply
    End With
    Set lo = Nothing
End Sub

Poi nella Sub SOMMA(), prima di Call EsportaDati ci metti questo:

Call Ordina_ElencoOrdini

Prova ad allegare il file con il tentativo che hai fatto nel copiare ed incollare il codice. Eventualmente spiega pure i passaggi che portano a far lanciare la macro SOMMA

Ciao @Ale.1989

andiamo per gradi. Tu hai detto che l'ordinamento della Tabella deve avvenire prima dell'inserimento nel Foglio "Elenco Ordini" però in questo modo è normale che succede che l'ultimo record inserito non verrà ordinato. Quindi penso che devi prima inserire il nuovo record e poi lanciare la procedura di ordinamento della tabella.

Per quanto riguarda la storia della data sbagliata...quello è abbastanza normale e frequente. Sistemiamo quel comportamento così:

nella Sub EsportaDati sostituisci il ciclo For i....Next con questo:

.........
.........
    For i = LBound(arr) To UBound(arr)
        If IsDate(wsMR.Range(arr(i)).Value) Then
            .Cells(urNR + 1, i + 1).Value = CDate(wsMR.Range(arr(i)))
            .Cells(urNR + 1, i + 1).NumberFormat = "dd/mm/yyyy"
        Else
            .Cells(urNR + 1, i + 1).Value = wsMR.Range(arr(i)).Value
        End If
    Next i
.........
.........

Poi togli quel Range("A1").Select  prima di End With nella Sub Ordina_ElencoOrdini e scrivi subito dopo End With:

    Worksheets("Elenco Ordini").Activate
    lo.DataBodyRange.Cells(1, 1).Select

Inoltre per migliorare ancora, nella Sub SOMMA inserisci Application.ScreenUpdating = False dopo la dichiarazione delle variabili e Application.ScreenUpdating = True poco prima di End Sub

Poi, il codice che Ordina la Tabella funziona così: 

Ordina prima la colonna STATORE dal più piccolo al più grande, poi a parità di dimensioni ordina la colonna CLIEN sempre in ordine alfabetico (quindi se hai 2 STATORE = 110x55 dove uno ha come CLIEN NERI e l'altro CIGNI...verrà ordinato prima CIGNI poi NERI), infine a parità di STATORE e CLIEN, verrà ordinata la colonna SCAD

Perciò è normale che ti potresti trovare nella condizione che nonostante ci siano più STATORI uguali, potrebbe ordinarsi prima la data più recente proprio perché nel frattempo va prima a ordinare la colonna CIEN in ordine alfabetico

Ciao @raffaele53

@Ale.1989 utilizza una ListObject, forse sarebbe meglio sfruttare metodi e proprietà delle ListObject.

Poi io avevo inteso che l'O.P. volesse ordinare prima la colonna A, poi dopo il primo ordinamento, creare il secondo ordinamento in base alla colonna G ed infine, a seguito di questo ulteriore ordinamento, ordinare ancora in base alla colonna H.

Con il tuo metodo ho notato che ordina la colonna A...poi dimentica quest'ordine e passa a ordinare la colonna G, dimentica anche la colonna G e ordina la colonna H. 

Quindi si ottiene come risultato che ordina solo per la colonna H.

Almeno così ho notato....

Quindi volevi che si ordinasse prima per date, poi per Client e infine per Statore?

Ale.1989 ha scritto:

l'unico accorgimento che devo usare e una volta esauriti gli ordini di non cancellare tutte le righe della tabella perché altrimenti mi va in errore.

Che errore ti da? Hai accennato al fatto che quando cancelli i dati in tabella poi i nuovi inserimenti ripartono non dal rigo 2. Quello accade perché stai utilizzando un ListObject (Tabella). Per gestire il primo rigo vuoto in ListObject ci vuole un approccio diverso. Se il problema è questo...che hai risolto il problema dell'ordinamento (che è l'oggetto della discussione), apri un nuovo Thread che riguarda la gestione del primo rigo vuoto. Al riguardo già dovrei avere una soluzione.