You could create a macro and assign it to a button from the Forms toolbar
(placed on that worksheet).
Option Explicit
sub testme01()
with activesheet
if isnumeric(.range("a1").value) then
.range("a1").value = .range("a1").value + 1
end if
end with
end sub