VBA Question

The Resize property will extend rngFound -

Set rngFound = rngFound.Resize(, 2)     'extend to two columns

For the looping look at the FindNext method.
There is a nice little example in VBA help that you can use as a framework.