hi,
Sub macCopyTo()
Sheets("sheet1").Select
Range("IV1").End(xlToLeft).Select
Range(ActiveCell, ActiveCell.Offset(15, -1)).Copy
Sheets("sheet2").Select
Range("A1").Select
Selection.PasteSpecial xlPasteAll
Msgbox ("Done")
End Sub

Regards
FSt1

"PCOR" wrote:

I currently have data in col A,B,C,D row 1 to 15 in each col
I was to copy the last two col(ie c1 to d15 to an other sheet
Now the catch.
Every week I add another col to this data.
So next week I will have COL a,b,c,d,e row 1 to 15 in each.
Now I want to copy Col d1 to e15 to an other sheet.
Need help with that
Thanks
Ian M