Change position of shapes with loop

Question

I created a script in VBA, so that in each iteration my shape goes down one line to each sheet while the shape below goes up, creating a prominent effect on the sheet that t