Não sei se entendi corretamente, troque sua rotina pela a abaixo e veja se é isto :

Toda vez que A5 for Selecionado altera o numero em D1 :
"Clicar em A5 para abrir contagem em D1 de quantas vezes A5 é selecionado"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Verde = 1
    
    If Target.Address = "$A$5" Then
        Range("D1").Offset(Verde - 1, 0).Value = 1 + Range("D1").Offset(Verde - 1, 0).Value
    End If

End Sub

[]s

Boa noite

Mauro, rotina trocada, resolvido a 1ª parte do problema.
2º problema:
"$A$5", essa célula é alimentada por formula ou seja, dependendo do que a formula encontrar, o valor em A5 é zero (0) ou célula vazia, só que a macro não consegue "reconhecer" o zero(0). Só com entrada manual na célula. Outra coisa, é possível substituir essa macro por formula?