Paste Values

[pdchislett]

Hi,

Is it possible to adapt this line of code to paste the data as values instead of transferring it with the formulas?

Range(Cells(2, 18), Cells(LR, 18)).Copy Worksheets("JOURNAL").Range("J" & LRL)

Thanks

 

[njimack]

Range(Cells(2, 18), Cells(LR, 18)).Copy 
Worksheets("JOURNAL").Range("J" & LRL).PasteSpecial xlValues

 

[pdchislett]

Thanks Neil,

I knew how to get around it but I wondered if it was possible in one line of code.

Your example is better than my attempt so I'll go with that!.

Cheers