Eliminare alcuni numeri dalla colonna che scorre

 =SE($B3=0;5;RESTO(B3+$G$1;37)) 

 =SE($C3=0;11;RESTO(C3+$G$1;43)) 

 =SE($D3=0;18;RESTO(D3+$G$1;50)) 

 =SE($E3=0;23;RESTO(E3+$G$1;55)) 

Sub Aumenta_B()
Dim max As Integer
    max = 37             'massimo valore per tutti i 5 contatori, cambiare a piacere
    If Range("B3") < max Then
        If Range("B3") Mod 10 = 0 Then Range("B3") = Range("B3") + 5 Else Range("B3") = Range("B3") + 1
    Else
        Range("B3") = 0
    End If
End Sub
Sub Diminuisci_B()
Dim max As Integer
    max = 37             'massimo valore per tutti i 5 contatori, cambiare a piacere
    If Range("B3") <= 0 Then
        Range("B3") = max
    Else
        If Range("B3") Mod 10 = 0 Then Range("B3") = Range("B3") - 5 Else Range("B3") = Range("B3") - 1
    End If
End Sub