VBA Copy

[mt]

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.

Thanks
Mike

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

 

[acw]

Hi

how about
with worksheets("Dat11")
dim arr(5)
arr(0) = range("T4")
arr(1) = range("B4")
arr(2) = range("D4")
arr(3) = range("S4")
arr(4) = range("L4")
arr(5) = range("M4")
worksheets("report1").range("a" & torow).resize(1,6) = arr

Not sure about the copy ranges....


Tony