Morgan

Your code appears work ok on my Excel 97

I do suggest some changes

change

' copy column on Sheet2
Sheets("sheet2").Activate
Columns("A").Select
Selection.Copy


to

Sheets("sheet2").Columns("A").Copy ' no need to activate sheet o
column



Change

Range("E1").End(xlToRight).Select
Selection.EntireColumn.Select
ActiveSheet.Paste


to

dim DestCol as Integer
DestCol = Range("E1").End(xlToRight).Column
Sheet("sheet1").Columns(DestCol).Paste
Selection.EntireColumn.Selec

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com