loop range in sheet 3 to find value and copy offset cell to sheet 2

I am having trouble trying to set up some code to carry out the following task.

I would like to loop through a range in sheet 2 column G and if the cell I am currently on is less than the predetermined AVAge variable I want the value in column A (same row) to be copied to the last empty row in Sheet 2 column A.

I am struggling with the jumping from one sheet to another and having to reset the variables for last row in sheet 2 after each paste. The below is the latest unsuccessful attempt. If anyone can suggest anything to solve this issue I would be greatly appreciative.

Please Login or Register  to view this content.

The complete code is below incase you were confused about data types or previously declared values

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Originally Posted by AlphaFrog

Please Login or Register  to view this content.

Note: your code loops through the sheet(3) rows from the bottom up. I didn't know if that's what you actually want. Bottom-up loops are typically used when rows are deleted.

I would do it like this because now you take the Rows.Count also from Sheet2.
It's my personal experience that when not specifying the exact sheet Rows.Count sometimes messes up things.

Please Login or Register  to view this content.

Originally Posted by bakerman2

It's my personal experience that when not specifying the exact sheet Rows.Count sometimes messes up things.

I've never experienced any issues with that.