rearranging column data

[MR3]

i have data in columns 1 through 6 and i would like to rearrange them in my macro via an array 2 3 5 1 4 6.

the array of rearrangement would be located in column A of Sheet1

2
3
5
1
4
6

and the column data to be rearranged would be in Sheet2

 

[VoG]

Try

Sub Xpse()
Dim LR As Long, i As Long
With Sheets("Sheet2")
    LR = .Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To LR
        Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(6).Value = Application.Transpose(.Range("A" & i).Resize(, 6))
    Next i
End With
End Sub

 

[MickG]

Not what you want !!!!

 

[Rick Rothstein]

Give this a try...

Sub RearrageRows()
  Dim vArr As Variant, LastRow As Long
  LastRow = Worksheets("Sheet2").Columns("A:F").Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:=xlFormulas).Row
  vArr = Application.Index(Worksheets("Sheet2").Cells, Evaluate("Row(1:" & LastRow & ")"), WorksheetFunction.Transpose(Worksheets("Sheet1").Range("A1:A6")))
  Worksheets("Sheet2").Columns("A:F").Clear
  Worksheets("Sheet2").Range("A1").Resize(LastRow, 6) = vArr
End Sub

 

[MR3]

Rick once again, THANK YOU!! your code works as asked!