Need help writing Excel VBA code to copy and paste specific rows into a new worksheet

I have attached a sample spreadsheet (2013-Aug Recon Sample.xlsx) that contains various dates in a month (the spreadsheet will vary as to the actual number of worksheets). Assuming all worksheets could contain a varying number of rows, I need to look at Column G on each worksheet, and if the row has data and Column G is blank, then that row needs to be copied to a clean worksheet starting at A2 (using the same column names as the current worksheets) and then rename the new worksheet as "NoRecons". It should loop through each worksheet copying those rows where Column G is blank to the new worksheet "NoRecons".

I have attached a sample of what rows I manually copied from the 2013-Aug Recon Sample.xlsx into a separate spreadsheet so you can see the results (2013-Aug NoRecon Sample.xlsx). I am not an expert in VBA so I am having difficulty automating this task. Can someone help? Thanks in advance for your expertise.

Another one.

The code runs, but breaks (Subscript out of Range) at: lrnc = Sheets("NoRecon").Cells(Rows.Count, 1).End(xlUp).Row + 1
Any ideas?

My last sheet is named NoRecon, but I still receive the subscript out of range. See screenshot attached -
11-6-2013 9-18-00 AM.gif

sktneer,
The way I see, there are 2 minor issues with your code.
If the first active sheet happens to be sheet "NoRecon", the code will terminate, so no execution.
The second issue is

Please Login or Register  to view this content.

will not work with table (Lists).
This will find the next empty row in a range, not a list (Table). sheet "NoRecon" is a table.

This one works correctly. Thank you for taking the time to help me. I really appreciate it.

Yes, I just tried AB33's code and it seems to work. Thank you for trying to help me out. I appreciate your time.