Sort, copy paste to new work sheet

I am trying to open a workbook and sort a table based on a year it occured and then copy that table to another worksheet. Here is the code I started and I can seem to get it going. I know I've made a few mistakes so any help would be appreicated. Thanks

Please Login or Register  to view this content.

It was a long day. All I need to do is add another autofilter from a previous macro.

Why have you marked this Solved?