Prova con questa mia macro come esempio di partenza che potrai poi sviluppare. La macro la devi mettere nel modulo vba del Foglio1, ovvero, in quello interessato dato che gestisce l'evento Worksheet_Change. Lo puoi fare cliccando di destro sulla linguetta e poi scegliendo Visualizza Codice.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub 'verifica se movimentiamo la colonna C altrimenti abbandona
If WorksheetFunction.IsNumber(Target.Value) = True Then 'procedi solo se viene indicato un numero
Application.EnableEvents = False
Target.Offset(0, -1).Value = Target.Offset(0, -2).Value 'copia cella in colonna A nella cella colonna B
Target.Offset(0, -2).ClearContents 'pulisci la cella colonna A
Application.EnableEvents = True
End If
End Sub[Modificato da rollis13 28/05/2019 19:38]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto)