Hi All,
I have a 8 macros I use every morning which simply select the last used column and copies the data into the next available column:
Sheets("PL").Activate
Dim i As Long
i = Cells(1, Columns.Count).End(xlToLeft).Column
Columns(i).Copy Destination:=Cells(1, i + 1)
With Cells(1, i +...