Does this help?
Sub clickadd()
Range("A1") = Range("A1").Value + 1
End Sub