Need help adjusting code to add to list instead of replace list.

I'm still a novice when it comes to VBA Code.     Can you please help adjust this code so that when it copies to Sheet 2 (Historical Data) it adds to the list instead of replacing the list?   Her...