Code not moving focus to named range cell.

Missing something simple on the attached Macro.

Code works perfectly in finding first row on the DATABASE sheet with "0" in Col A (row 7), name that "FIRST", find the next "0" (Row 34), reset the end of the range to row 27, set that as "LAST", copy range to MASTER sheet and create a duplicate sheet which it renames.

Please Login or Register  to view this content.

I need it to go back to "LAST" and repeat the cycle, so the new "FIRST" and "LAST" become Rows 34 and 53, and then rows 60 - 75. Real sheet has 20k+ rows with ranges of variable lengths.

Hope someone can see the obvious flaw?

Ochimus

An alternative way would be

Please Login or Register  to view this content.

The line in red changes the value in B3 to prevent naming sheets with an existing name