Word Macro - replace a fixed text with a variable that increase by a certain step

Question

I have a word VBA that I want to make it a bit smarter. Right now, it serves me well but I still have to do a manual step, which I would like to eliminate. The macro repla