Troubleshooting For Each loop

I want to check every cell on column G in sheet 2 for "Savings"
If "Savings" is found, then I want the next value pasted on sheet 5. Offset(1) doesn't work because the data below "Savings" may have a random number of blank rows.

This code works if I have Sheet 2 active before I run the macro. It doesn't work properly if I have any other sheet open though. I highlighted the issue in red. I have no idea why With isn't working properly. (Even if I do something simple like With s2, the Range/Cells commands don't seem to work properly for me)

Please Login or Register  to view this content.

Hi,
try this:

Please Login or Register  to view this content.