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

Replace your first line with:
Cells(RowNum, 29).Copy
Cells(28, 5).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Replace the other two similarly.

Hth,
Merjet

Francis,

You make the choice at paste time, try:-

Sub atlantic()
RowNum = ActiveCell.Row
Cells(RowNum, 29).Copy
Cells(28, 5).PasteSpecial Paste:=xlPasteValues
Cells(RowNum + 1, 29).Copy
Cells(30, 5).PasteSpecial Paste:=xlPasteValues
Cells(RowNum + 2, 29).Copy
Cells(32, 5).PasteSpecial Paste:=xlPasteValues
End Sub

Mike

"Francis Hookham" wrote:

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

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

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

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