After creating the button, assign this macro to it:

Sub qwerty()
With Range("B9")
.Value = .Value + 1
End With
End Sub

Adjust the cell to suit your needs
--
Gary''s Student - gsnu200807