Prova

Sub tastomenoad()
Dim wb1 As Workbook
If Worksheets("Input").Range("B8").Value = "" Then Exit Sub
Set wb1 = ThisWorkbook
With wb1.Worksheets("Input")
.Range("B8").Value = .Range("B8").Value - 1
If .Range("B8").Value = 0 Then .Range("B8").Value = ""
End With
Set wb1 = Nothing
End Sub

Ciao Fabrizio, è da un po' che non ci sentiamo 🙂

Il foglio Input è nello stesso Workbook? perfetto non serve referenziarlo e quindi risparmi un oggetto (con tutto il lavoro di istanzia, assegna e annienta).
Nel blocco With fai riferimento a Range("B8"): benissimo, includilo nel blocco With e risparmi anche questa digitazione.
Fai un test sul valore uguale a zero? Ecco qui per te l'istruzione IIf che valuta una condizione e condensa un Then...Else in una sola riga.
Infine non serve il test sulla cella vuota: se nella IIf testiamo anche il valore minore di zero, ecco risparmiata un'altra istruzione.

Insomma una piccola ottimizzazione con un grosso saluto per te 🙂

Sub tastomenoad()
    With Worksheets("Input").Range("B8")
        .Value = IIf(.Value - 1 <= 0, "", .Value - 1)
    End With
End Sub

Ma direi che se questa routine aumenta il valore, non andrà sotto lo zero; in astratto potresti avere un valore max da non superare e allora devi modificare  la logica accordingly:

'esempio non posso superare il valore di cinque miliardi:
max_value = 5 000 000 000
.Value = IIf(.Value + 1 > max_value, "", .Value + 1)

Sentirci è sempre possibile e sempre gradito, ma la mia testa in questo periodo non è molto libera.

FROST220684 ha scritto:

non so perchè mi da errore sul max_value

"Variabile non definita".

Scegli un'opzione:
1- Ti picchio direttamente senza passare dal Via!
2- Prima ti insulto e poi ti picchio
3- Prendo un treno, vengo lì, ti insulto e poi ti picchio
4- Ti spiego con calma olimpica cosa succede, ti dico come rimediare e poi mi offri una birra

Hai inserito Option Explicit in testa al codice, cosa molto buona e giusta, ma non hai dichiarato la variabile "max_value" che perciò è sconosciuta all'interprete e quindi ti solleva errore.

Soluzione: dichiara la variabile a inizio Sub:

Sub tastopiuad()
Dim max_value As Integer (oppure Long)