Solved: Copy only values

[austenr]

What do you need to include in this code to paste only the values and not the formats?

Range("B170:n170").Copy Destination:=Range("E9")

[lucas]

Sub Macro1()
Dim Rng1 As Range, Rng2 As Range
Set Rng1 = ActiveSheet.Range("B170:n170")
Set Rng2 = ActiveSheet.Range("E9")
Rng1.Copy
Rng2.PasteSpecial Paste:=xlValues
End Sub

[austenr]

thanks Lucas. That works for me.

[mdmackillop]

Hi Austen
Just for info, you can't PasteSpecial in the same line of code as Copy, as per your original post. You need to code as Steve has shown.
regards
MD