Paste Special Value range contents to first blank row

[djdiplomat]

Hi

I'm trying to paste special values the contents of a range to the first blank row of a worksheet.

I can paste the range, but can't work out how to paste special values.

Here is the code I'm using:

Range("RangeA").Copy Worksheets("Sheet B").Range("A1").End(xlDown).Offset(1, 0)

This works but doesn't paste special values - not sure how to add that in.

Thanks for your help.

 

[JackDanIce]

Try:

Range("RangeA").Copy 
Worksheets("Sheet B").Range("A1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlValues

 

[VoG]

You need 2 lines of code for that

Range("RangeA").Copy
Worksheets("Sheet B").Range("A1").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues

 

[djdiplomat]

Perfect - thanks very much!