Copy Paste VBA Question

[Glasgowsmile]

Good day,

I currently have the following code and I'm trying to find an quicker way to copy / paste it.

Sheets(1).Range("A2:B2").Copy
         Sheet1.Range("$B$2").PasteSpecial xlPasteValues
         
         Sheets(1).Range("F2:G2").Copy
         Sheet1.Range("$G$2").PasteSpecial xlPasteValues
         
         Sheets(1).Range("I2:J2").Copy
         Sheet1.Range("$K$2").PasteSpecial xlPasteValues
         
         Sheets(1).Range("L2:M2").Copy
         Sheet1.Range("$O$2").PasteSpecial xlPasteValues

Is there a better way to condense this code into something quicker and more efficient?

 

[Joe4]

That should run pretty fast (you do not have any "Selects").
Since the ranges you are copying are not consecutive, and don't even seem to follow any sort of discernable pattern that could be calculated/repeated, I can't really see any way of making it more efficient or shorter.

Is there some issue with your current code ?

 

[Glasgowsmile]

That should run pretty fast (you do not have any "Selects").
Since the ranges you are copying are not consecutive, and don't even seem to follow any sort of discernable pattern that could be calculated/repeated, I can't really see any way of making it more efficient or shorter.

Is there some issue with your current code ?

No, there is no issue with it. I just wanted to see if something could be improved upon for it or if there was less lines I've have to type up.

 

[Joe4]

No, there is no issue with it. I just wanted to see if something could be improved upon for it or if there was less lines I've have to type up.

If there was a discernable pattern, maybe. But it would just be less lines to type, it really wouldn't run any faster.