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