I'm not sure if you have an existing macro to add this to or if you just want one to run on its own to increment the number in a cell but this may help:-
Range("B4").Value = Range("B4").Value + 1
Have a look at the following link to see it work:-
You may have to change the cell references to suit yourself.
I hope that this helps.