Hi MBarron
I thought I would test the code whilst I was still online but having similar problems with your code as well.
When I run the macro on the "Before" sheet it also comes up with a compile error on:
Cells(1, Columns.Count).End(xlToLeft).Offset(0, -5).Resize(Rows.Count, 6).Copy _
Destination:=Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1)
and when I run it on the "After" sheet, the columns are also pasted with the first column at the end, instead of at the beginning.
I reckon it must be something to do with the formatting of the columns but don't know how to correct the code to take this into account.
Regards ...David