Loop or For Each within a For Each

I am having some technical difficulties trying to place data onto sheet2. Sheet2 starts out blank, as sheet1 is proccessed it pastes data to sheet2. I have tried a "For Each" that failed only pasting data into Range "A1" for every found instance.

In the code below, the area colored "Magenta", I need a Loop of some type that as data is pasted into column A on sheet2, it indexes to the next available cell and continues.
How do I construct such a Loop or For Each with in the existing For Each?

Please Login or Register  to view this content.

Any hints, tips or examples are welcome.

It's not clear from code alone what is suppose to happen.
Can you create small test workbook with before and after records.

guessing....
Should Sh2Range be a range of cells? Perhaps it should be just the next single cell at the end of any existing data. Then you would simply set the reference to the next cell below by using the OFFSET method.

No animals have been harmed in the making of this macro!

In the macro, enable this line to see what data is found on sheet 1.

Please Login or Register  to view this content.

Edit:
I forgot the macro is workbook name sensitive.
in the macro change:

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

I guessed right,

Please Login or Register  to view this content.

How the heck do you guys (gals) do this? LOL
You make it seem simple with the methods you use.

I see the loop need not be within the"For Each" as I thought.

Thank you!

My last humbling attempt. Which only resulted in the last entry (49) being pasted to sheet2 for all 9 total values found. (Just so you know I was working on it.)

Please Login or Register  to view this content.

Just ignor my code, it may cause brain damage.