I have code that in certain rows, selects cells E:J and pastes them on another sheet. Now, I also need to copy the contents of N (skipping data in other cells), and paste it farther away on the other sheet.
In summary: For certain rows, copy E:J and paste on other sheet at G:O, and also copy N and paste on other sheet at P.
Is there a painless way to do this without running through the code twice? Thanks!
Set rng = wsEWork.Range("E7:E" & lrow)
For Each item In rng
'was it selected with an X in column E?
If UCase(item.Value) = "R" Then 'row was selected
Range("E" & item.row & ":J" & item.row).Copy
'transfer to Install Checklist
wsInstall.Range("E" & nextECopy).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
nextECopy = nextECopy + 1