Hai inserito la riga del calcolo dell'ultima riga:
UltimaRiga = Range("C1").End(xlDown).Row + 1dopo aver già avuto necessità della variabile UltimaRiga presente nel codice che inserisce la formula dove serve (nel mio post #4 era nel posto giusto). Riscrivi questo pezzo di codice così:
'per individuare la prima riga vuota
UltimaRiga = Range("C1").End(xlDown).Row + 1 '<-spostata una riga più in su
Cells(UltimaRiga, 1).FormulaR1C1 = "=IF(RC[2]=0,"" "",CONCATENATE(RC[1],"" "",,RC[2],"" - "",RC[3]))"
Cells(UltimaRiga, 3).Value = TextBox1.Value
Cells(UltimaRiga, 4).Value = TextBox2.Value
'ordinamento dati dopo l'inserimento[Modificato da rollis13 20/01/2022 15:19]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)