VBA Question

I have a worksheet that has multiple data that I need to copy 2 cells (side by side) and move up 1 row and over 2 cells.

I just can't figure it out how to do it. THe code I pasted isn't working the way I want it to.

Thanx

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.