The all in one Copy with Destination:=
has to be replaced with two lines
Copy and a separate PasteSpecial.
Here is the first Copy/destination replaced with two lines:
'copy column B to column B
rngOnes.Offset(intOnes, 1).PasteSpecial (xlPasteValues)
Repeat the process for the other three copy/destination lines.
You will see that the address calculations are the same as before.
To see other PasteSpecial options, when you have created the new PasteSpecial line in the VBA code window, put the cursor between the opening bracket and the x in (xlPasteValues)
Now backspace to delete the bracket, re-type the (
and a list of paste special options will appear.
I have just noticed that the resize for the second copy is one cell larger than it should be. Here is the corrected code, using the PasteSpecial:
'copy columns C to G to columns F to J
rngCell.Offset(0, -8).Resize(1, 5).Copy
rngOnes.Offset(intOnes, 5).PasteSpecial (xlPasteValues)
You will need to correct the Resize in the 'twos' section as well.
Regards and thank you for your kind feedback.