How to copy pairs of data from a row that is not contiguous and paste to another sheet.

[Marvalisa]

I would like to set up a loop in VBA to copy pairs of data from a row where each set of pairs is not contiguous and paste the data to another worksheet.
Here is what I have and it works but is not efficient.

.Range(.Cells(r, 20), .Cells(r, 21)).Copy wsSR.Range("B14:C14")
.Range(.Cells(r, 23), .Cells(r, 24)).Copy wsSR.Range("D14:E14")
.Range(.Cells(r, 26), .Cells(r, 27)).Copy wsSR.Range("F14:G14")
.Range(.Cells(r, 29), .Cells(r, 30)).Copy wsSR.Range("H14:I14")
.Range(.Cells(r, 32), .Cells(r, 33)).Copy wsSR.Range("J14:K14")
.Range(.Cells(r, 35), .Cells(r, 36)).Copy wsSR.Range("L14:M14")
.Range(.Cells(r, 38), .Cells(r, 39)).Copy wsSR.Range("N14:O14")

Thanks for any help you may provide.

 

[Peter_SSs]

I would like to set up a loop in VBA to copy pairs of data from a row where each set of pairs is not contiguous and paste the data to another worksheet.

Does it have to be a loop?
Try replacing those 7 lines with this one.

wsSR.Range("B14:O14").Value = Application.Index(.Cells, r, Array(20, 21, 23, 24, 26, 27, 29, 30, 32, 33, 35, 36, 38, 39))

 

[Marvalisa]

Does it have to be a loop?
Try replacing those 7 lines with this one.

wsSR.Range("B14:O14").Value = Application.Index(.Cells, r, Array(20, 21, 23, 24, 26, 27, 29, 30, 32, 33, 35, 36, 38, 39))

Peter,
No, it doesn't have to be a loop. I like to keep it simple; I like to think in terms of what I would do if I had a very large data set.
You have helped me a lot and now I have more tools in my toolbox. Hopefully, I can figure out the rest of what I am doing with what you have shown me here.
Many thanks, Marvalisa

 

[Peter_SSs]

Many thanks, Marvalisa

You're welcome.