Copy and move worksheets using current VBA code

I have a worksheet called "Control Plan" with 3 pages of information. The code below (I didn't create but have manipulated it over the years) copies the contents of the second page and relocates it to the next empty row from the bottom. Then it pastes the copied data to create a new page. The contents are cleared from a specific range for new data entry. The process is repeated as new sheets are added.

What I need to happen is for page 3 to always be moved and be the last page of the worksheet before the code runs, regardless of how ever many times the user adds pages. The document grows dynamically when the user clicks on the "Add a Checklist" button on page 2, which now becomes page 3 and so on. The contents on the current page 3 must be moved and always be the new last page every time.

I'm sure this can be done, but I don't know where in the current code to insert new code that will make it happen, without messing up the program.

Please Login or Register  to view this content.

Administrative Note:

Welcome to the forum.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

I did it for you this time. Please read forum rules. Thanks