Need a macro

[OONEDOO]

I need a macro that will copy data from column C and paste the data sixteen cells across but if the cell is already populated I need it to move seventeen cell and if that is populated over again and so on and so.

 

[ravishankar]

Hi
Paste the following codes in the macro window(Alt F11)

sub copy_columnC()
x= cells(rows.count,3).end(xlUp).row
y= cells(2,columns.count).end(xlToLeft).column
a = "C1:C"& x
b= chr(y+1) & 1
Range(a).copy
Range(b).pastespecial
end sub

this works upto col Z only.
Ravi

 

[Peter_SSs]

Maybe this?

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> CopyRight()
    <SPAN style="color:#00007F">Dim</SPAN> newcol <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
    
    newcol = Cells(1, Columns.Count).End(xlToLeft).Column + 1
    <SPAN style="color:#00007F">If</SPAN> newcol < 19 <SPAN style="color:#00007F">Then</SPAN> newcol = 19
    <SPAN style="color:#00007F">With</SPAN> Columns("C")
        .Copy Destination:=.Offset(, newcol - 3)
    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>