Tricky little bugger...
I just re-coded a snippet...this works...
Option Explicit
Sub Lift_Data()
Dim Arr, Temp, i As Long, ii As Long, lrow As Long
With Sheet1
.UsedRange.Sort Key1:=Range("E1"), Order1:=xlDescending, Header:=xlYes
lrow = .Range("A" & Rows.Count).End(xlUp).Row
Arr = .Range("A1:H" & lrow).Value
ReDim Temp(1 To UBound(Arr, 1), 1 To 6)
'.UsedRange.ClearContents
For i = 1 To UBound(Arr, 1)
For ii = 1 To 6
Temp(i, ii) = Arr(i, Choose(ii, 1, 6, 5, 3, 4, 7))
Next ii
Next i
.Range("A1").Resize(UBound(Arr, 1), 6) = Temp
End With
End Sub
Incorporate into your code...
Bookmarks