Copy and paste to the next empty column

Hi guys

Could someone please help me amend the below code? Basically I need to be able to copy and paste data into the next empty cell in sheet(archive). I regularly enter new data in sheet(new) and my macro below is overriding my previous data in sheet(archive)

Please Login or Register  to view this content.

thanks