Ciao @frasubb,

io sono sempre più convinto che ti stai buttando in un ginepraio pieno di insidie. Lavorare su doppia riga è tremendo...poi lo rendi ancora più difficile con le celle unite. Secondo me più andrai avanti per questa strada e più sarà complicato aiutarti. Mi rendo conto che per te adesso tornare indietro e rifare tutto da capo non è semplice. Ma ritengo che questo tuo lavoro andava strutturato in maniera diversa. I Fogli dovrebbero accogliere in modo tabellare solo i dati grezzi (senza formattazioni particolari), poi attraverso UserForm e con l'utilizzo degli Oggetti dedicati, quali ListBox, ComboBox e TextBox, si va ad interrogare il Foglio, estrapolando i dati per poi manipolarli e riversarli di nuovo sul Foglio. Quindi niente 1 foglio per mese o 1 foglio per anno...basta 1 foglio, che contiene oltre 1 milione di righe...penso che sia sufficiente per diversi anni. A quel punto tu vai a lavorare solo attraverso le UserForm, senza mai vedere Fogli.

Comunque vediamo se risolviamo almeno per adesso questo tuo problema...con la speranza che non andiamo a rovinare altrove:

in Private Sub cmdInvia_Click() ad un certo punto rimpiazza questo:

    arr(nRows + 1, 8) = CoordinateBanca
    arr(nRows + 1, 9) = CoordinatePosteIT

con questo:

    arr(nRows + 1, 8) = LabelCoordinateBanca 'H
    arr(nRows + 1, 10) = LabelCoordinatePosteIT 'J

Poi proseguendo...nel Bubble Sort:

dove trovi temp1(2, 9) = arr(r + 1, 9) lo rimpiazzi con temp1(2, 9) = arr(r + 1, 10)

poi dove trovi arr(r + 1, 9) = arr(c + 1, 9) lo rimpiazzi con arr(r + 1, 9) = arr(c + 1, 10)

poi dove trovi arr(c + 1, 9) = temp1(2, 9) lo rimpiazzi con arr(c + 1, 9) = temp1(2, 10)

Vedi un po' se risolvi...ma il mio consiglio è di snellire tutta la logica ricostruendo la struttura come suggerito.

ok più che legittimo