Insert column with width = sum of column E:P width

I am trying to set up VBA to:
1)Create a new Column.
2)Have the new Column's width match the total width of Columns E through P.
3)Work efficiently as the worksheet goes to P1285 before the new column is added.

I am using the following Code:

Please Login or Register  to view this content.

I am not the most experienced with VBA but feel that this is close to what I am looking for. When I get to the column width portion, Excel locks up and requires task manager to shut it down (after waiting over 5 min).

Any help would be greatly appreciated, Thanks!

That worked great, thank you!