Macro to Copy and Paste a Column to the next available empty column

I have Excel 2010 --- I have a spreadsheet that contains a simple table. Depending on the circumstances, the table can have just the 4 columns, or it may need to have 6, 8, to 20 columns. I want to take Column from E10 to E30 and copy that and paste it into the next available empty column, sometimes the empty column will be F, or H, depends how many columns are currently in the table. I also want the Event number to continue when column is pasted. So, currently the column is Event1, Event2, Evernt3, and Event4. When the next column is added, I wasnt it to be Event 5, Event6, etc.

I have tried numerous macros, but cannot get this done. Thanks for help.

This works great! Do you know how I can get the headings to number consecutive when pasting in? The column headings are Event1, Event2, Event3, and Event4. How do i get the next column when pasted in to be Event5, Event6, etc. ???