Archiving/Updating to another sheet

[TurtleboyTom]

Hello, I have a macro that takes data from 3 sheets and moves it into one row on a new sheet. Somewhere along the way changes were made and not noted. My knowledge is very basic with VBA, but I believe this could be simplified. Could someone please take a look at this for me? The following errors include:

Pushing Crtl +G: Clearing all the colored cells on the "Titra Data" sheet.
Pushing Ctrl+A: Archiving Q36 and R36 from "Titra Data" to "Historic Data"
Correctly archiving data from the CCA and CCB sheet.

I would also welcome to any new ideas on better organization.

Thank you!


Link to .xls File

[dflak]

Attach a sample workbook. Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.