frank_ciccio ha scritto:

Spero di essermi spiegato.

Onestamente non ho capito nulla di quanto hai scritto. Ma neanche a cosa serve la macro presente in Foglio1. Prova a spiegare meglio cosa vorresti ottenere...magari parti dall'inizio, cioè cosa ti aspetteresti dalla macro che hai inserito nel Foglio1.

Si potrebbe anche fare , ma poi devi adattare tutto a questo esempio

frank_ciccio ha scritto:

se clicco in una cella vuota della colonna A riparte il numero progressivo.

Ciao,

prova questa variazione al codice di Oscar:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim MyArea As Range
    
    Set MyArea = Range("A8:A100")
    With MyArea
        If Not Intersect(Target, .Cells) Is Nothing Then
          Set Target = Target(1, 1)
          If Target.Offset(-1).Value > 0 Then Target.Value = Target.Offset(-1).Value + 1
        End If
    End With

End Sub

frank_ciccio ha scritto:

la tua macro dopo reset dà errore

tipo non corrispondente qui

If Target.Offset(-1).Value > 0 Then Target.Value = Target.Offset(-1).Value + 1

La colpa è della macro cancellatutto(): è brutta cosa usare il metodo .Select quando non è indispensabile:

sostituisci le due istruzioni

    Range("A5,A7:M2505").Select
    Selection.ClearContents

con la sola

    Range("A5,A7:M2505").ClearContents`