Copy Selected cell to the length of specific column

[HotNumbers]

How can i copy an active cell to the length of a specific cell. For example I want to copy H119 but would like to stop at the exact length of Column C which happens to be 335. But the length of Column C is always changing.

 

[Smitty]

This may be a start:

<font face=Calibri><SPAN style="color:#00007F">Sub</SPAN> foo()<br>    <SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br>        i = Cells(Rows.Count, "C").End(xlUp).Row<br>        <br>        ActiveCell.Copy Range(ActiveCell, Cells(i, ActiveCell.Column))<br>        <br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

HTH,

 

[HotNumbers]

Thank you so much

 

[Arul.rajesh]

How can i copy an active cell to the length of a specific cell. For example I want to copy H119 but would like to stop at the exact length of Column C which happens to be 335. But the length of Column C is always changing.

Do you mean to say you want to copy the activecell which is H119 to the last row in column C?

sub CopyToColumnC()
ActiveCell.Copy Destination:=Range("C1048576").End(xlUp).Offset(1, 0)
End sub

 

[HotNumbers]

Thanks this is also good.