Is there a way to set the copy range in the correct sequence? In this code, I want the data to copy in the same order as I have set the copy range from left to right. It seems to always revert back to the same order that it was in the worksheet. In this case, I want the Company Code in Column A in the Destination sheet, but it keeps ending up last.
With Worksheets("Data1") Set rngH = .Range("T4") 'Company Code Set rngA = .Range("B4") 'Parcel Set rngCopy = Union(rngH, rngA.Resize(, 2)) 'Lot Set rngCopy = Union(rngCopy, rngA.Offset(, 17)) 'TaskCode Set rngCopy = Union(rngCopy, rngA.Offset(, 10).Resize(, 2)) 'Task,Date,ActualDate rngCopy.Copy Worksheets("Report1").Range("A" & ToRow).PasteSpecial Paste:=xlPasteValues End With