To just get the values without formatting or pasting. NO copying and NO
pasting.

range("a2:a22").value=range("b2:b22").value

--
Don Guillett
SalesAid Software

"DG" wrote in message
...
Thanks,

That worked except the Selection.Paste didn't. However ActiveSheet.Paste
worked.

I only have one other problem. The paste brought over the formating
(borders) how do I use ActiveSheet.PasteSpecial to just past the values?

Dan


"Nick Hodge" wrote in message
...
Dan

Do your copying here.... then

Worksheets("Sheet2").Range("A1").End(XlDown).Offse t(1,0).Select

Selection.Paste

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
DTHIS
www.nickhodge.co.uk


"DG" wrote in message
...
I am copying a range of data from one sheet1 to the end of sheet2.
Sheet1 will keep changing and I always want to append it to the bottom of
sheet2.

Range("A1").End(xldown).Select will get me to the last USED cell. But
how do I go one more?

Also, I used Range(Range("A2").End(xlToRight),
Range("A2").End(xlDown)).Copy to copy the data. One I select the next
unused cell in sheet2 how do I paste?

Dan