Shorter version of Copy/Paste?

[EssKayKay]

No biggie here just wondering if there is a shorter/more efficient way to code "copy/paste"?

Range("R33:R133").Select
Selection.Copy
Range("R33").Select
Selection.PasteSpecial Paste:=xlPasteValues

Thanks for viewing,
Steve

 

[Joe4]

If you are just trying to convert the formulas to hard-coded values, you can use:

Range("R33:R133").Value = Range("R33:R133").Value

 

[EssKayKay]

Thank you Joe - much appreciated. I use the "long" way numerous times in my coding. I will make the change.

 

[Joe4]

You are welcome.

Also note that it is usually not necessary to select ranges in order to work with them. Doing so not only adds an extra line to your code, but also slows your code down (every select slows your code).

The Macro Recorder is very literal, and records every cell selection. Usually you can clean up your code. Most every time you have one line end with "Select" and the next line begins with "Selection", you can combine those two lines together.

So something like this:

Range("R33:R133").Select
Selection.Copy

could be simplified to just this:

Range("R33:R133").Copy