Ciao
così come è stato progettato devi variare tutte le macro;
se è solo per l'ultima cifra un modo è:
....
Dim numCellePiene As Integer
numCellePiene = Application.WorksheetFunction.CountA(Range("V41:X41"))
If numCellePiene = 3 Then
For c = 22 To 24
Cells(41, c) = Cells(41, c + 1)
Next
End If
Cells(41, numCellePiene + 22).Value = 1
... Se lo devi fare per qualsiasi inserimento va modificato
Saluti
[Modificato da dodo47 12/01/2017 17:32]
Domenico
Win 10 - Excel 2016