Glad to help

--
Don Guillett MVP
SalesAid Software

"Francis Hookham" wrote in message
...
Many thanks Don - the neatness of your second suggestion was what I was
looking for.

Thanks too to Merjet and Mike.

Francis


"Don Guillett" wrote in message
...

try this idea for values only. Ranges must the same size.
cells(28, 5).value=Cells(RowNum, 29).value

or maybe this to do it all
rownum=1
for i=28 to 32 step 2
cells(i,5).value=cells(rownum,29).value
rownum =rownum+1
next


--
Don Guillett
SalesAid Software

"Francis Hookham" wrote in message
...
RowNum = ActiveCell.Row
Cells(RowNum, 29).Copy Destination:=Cells(28, 5)
Cells(RowNum + 1, 29).Copy Destination:=Cells(30, 5)
Cells(RowNum + 2, 29).Copy Destination:=Cells(32, 5)

seems to copy everything.

can this be modified to copy only values only?

Francis Hookham