This will reverse the activesheet's columns on the 2nd sheet in a workbook:
<font face=Courier New><SPAN style="color:darkblue">Sub</SPAN> sadjakls()
<SPAN style="color:darkblue">Dim</SPAN> i <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Long</SPAN>, i2 <SPAN style="color:darkblue">As</SPAN> <SPAN style="color:darkblue">Long</SPAN>
<SPAN style="color:darkblue">For</SPAN> i = [iv1].End(xlToLeft).Column <SPAN style="color:darkblue">To</SPAN> 1 <SPAN style="color:darkblue">Step</SPAN> -1
i2 = i2 + 1
Range(Cells(1, i), Cells(65536, i).End(3)).Copy Sheets(2).Cells(1, i2)
<SPAN style="color:darkblue">Next</SPAN>
<SPAN style="color:darkblue">End</SPAN> <SPAN style="color:darkblue">Sub</SPAN></FONT>