scanning and looping columns

So I need help making this loop. I need to insert a column after a pair of columns, and put this function in the adjacent cells.

Please Login or Register  to view this content.

After that, if a cells value in that inserted column is 2, i want the two cells before the active one and the date in column A to be copied and pasted into the summary worksheet. Then the inserted column needs to be deleted, and another one placed after the next pair of columns, and so on until the last column. I know this is a lot to ask, so I've posted example files to work with. It's greatly reduced from what I'm actually working with to keep stuff confidential, but it should get the job done.

try this:

Please Login or Register  to view this content.

Jbeaucaire, thanks so much for the reply! I just saw it today, and your code works, but only after a certain point in my full range of data. I'm just going to work with it for a while and see if I can get the output right, but for some reason it pulls in the same set of data for about 900 rows, and when it finishes that, it just prints out the column it is at, not the values it found which match the criteria.