|Since it looks like you're willing to try a little coding on your own, I'm going to suggest that you look at the Find method in the VBA help files.|
The Find method is very powerful and much more efficient than looping through a range checking every cell with an "If" statement.
The example that is given in the Help file just needs a little modification to make it do what you want to do.
I'm confident in saying that because I just did it. :-)
I will offer one hint, which won't make any sense until you look at (and understand) the example in the Help files.
The example contains this line:
firstAddress = c.Address
It uses that line to help determine if it has found all of the strings it is searching for.
Keep in mind that once you insert a row above the first String10, the address where it found the first String10 no longer contains String10 since you moved it down one row.
Not only will you need to modify what the example does within the Do Loop (that's the easy part) you'll also have to modify the "firstAddress = c.Address" line to make sure the code knows that it is done.
I assume you know about using F8 to single step through the code. I also assume (hope) that you know about the VBA Watch window. They are both very powerful tools for troubleshooting code.
Give the Find method a shot and let us know how it works out for you. We're here to help if you need it.