Teething problems with archive macro

[infernojaffa]

Hi Guys

I found this on another forum and it works great

Please Login or Register  to view this content.

Is there any way at clear contents that it leaves the first two columns and deletes the remaining?
At the moment it clears the whole archived selection including my location tags.

Thanks
Andy

[TMS]

Maybe, untested:

Please Login or Register  to view this content.

Why do you copy the data twice?

Regards, TMS

[infernojaffa]

Hi TMS,

Thanks for your reply.

I have tried what you suggested but recieve a run time error: "1004 - Application-defined or object defined error" and highlights the line you suggested.
I do not understand how the code works so have no idea about copying twice?

Andy

[TMS]

Suggest you post a sample workbook then and mock up what you hope to see after the macro has run.

Regards, TMS

[infernojaffa]

Suggest you post a sample workbook then and mock up what you hope to see after the macro has run.

Regards, TMS

Hi TMS,

I've created and attached an example document.

Thank you in advance for any help.

[bulina2k]

Hi there!

Maybe if you replace .ClearContents with:

Please Login or Register  to view this content.

oh and as TMS well said, get rid of that .Copy before the .Copy Destination... line.

[sktneer]

Maybe this....

Please Login or Register  to view this content.

[infernojaffa]

Hi there!

Maybe if you replace .ClearContents with:

Please Login or Register  to view this content.

oh and as TMS well said, get rid of that .Copy before the .Copy Destination... line.

Thank you all, this solution worked!

[TMS]

You're welcome. Thanks for the rep.

Credit to bulina2k for the final solution