00 12/01/2017 17:30
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