Copy paste in certain column order

[cortexnotion]

Hi All

Is there a shorter/better way than the below to copy/paste a range in a different column order? I work with much larger ranges that the below so a shorter version would be great.

Thanks!

LR4 = Workbooks("GATE").Sheets(1) .Range("D" & Rows.Count).End(xlUp).Row
    ThisWorkbook.Sheets("admin").Range("F3:F" & LR4).Value = GATE.Sheets(1).Range("J3:J" & LR4).Value
    ThisWorkbook.Sheets("admin").Range("G3:G" & LR4).Value = GATE.Sheets(1).Range("F3:F" & LR4).Value
    ThisWorkbook.Sheets("admin").Range("H3:H" & LR4).Value = GATE.Sheets(1).Range("G3:G" & LR4).Value
    ThisWorkbook.Sheets("admin").Range("I3:I" & LR4).Value = GATE.Sheets(1).Range("C3:C" & LR4).Value
    ThisWorkbook.Sheets("admin").Range("J3:J" & LR4).Value = GATE.Sheets(1).Range("D3:D" & LR4).Value

 

[Fluff]

How about

Sub cortexnotion()
   Dim Ary As Variant
   Dim LR4 As Long
   
   LR4 = Workbooks("GATE").Sheets(1).Range("D" & Rows.Count).End(xlUp).Row
   Ary = Workbooks("GATE").Sheets(1).Range("C3:J" & LR4).Value2
   
    ThisWorkbook.Sheets("admin").Range("F3:J" & LR4).Value = Application.Index(Ary, Evaluate("row(1:" & LR4 - 2 & ")"), Array(8, 4, 5, 1, 2))
End Sub

 

[cortexnotion]

@Fluff, nifty thank you. I can see Value2 stops the date format shifting to US format which is useful to know!

 

[Fluff]

You're welcome & thanks for the feedback.