Works perfect!!!!!!

Thanks.


On Jul 14, 9:58*am, Claus Busch wrote:
Hi,

Am Thu, 14 Jul 2011 07:39:09 -0700 (PDT) schrieb willwonka:

I want it to look like this:

JC4100 * * * * * * * * * * JC4100
JC41003002 JC4100
JC41003003 JC4100
JC41001040 JC4100
JC41009998 JC4100
JC41016041 JC4100
JC4100H * * * * * * * * * *JC4100

you select a cell in column F to copy your values. Then try:

LRow = Cells(Rows.Count, "F").End(xlUp).Row
Range("G" & ActiveCell.Row & ":G" & LRow) = ActiveCell

Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2