Re-Arrange Columns after Import

[Foncesa]

Hi,
I have imported selected columns from CSV file to Temp sheet, in this Temp sheet at the end of imported data one header is also imported with columns mismatched, now after the 2-Header i want to move the 2nd Header Columns from A to E and Column E to A to get data in order.
Some one help to re-arrange the data.

30097

Excel Sheet Attached.

[SamT]

Record a Macro, Save to My Personal.xlsm
Select the Temp Tab
Select Column A
Ctrl+H to replace "Total" with "OrderDate"
Select Column E
Ctrl+H to replace "OrderDate" with "Total"
Stop recording

Run the saved Macro the next time you import the data

[Foncesa]

Thanks SamT, this is reordering only Headers but i also want to move the below data and the rows are not defined.

[nilem]

Hi Foncesa,
try it

Sub ertert()
Dim x, i&, dt, bu As Boolean

With Sheets("Temp")
If .FilterMode Then .ShowAllData
x = .Range("A1:E" & .Cells(Rows.Count, 1).End(xlUp).Row).Value
End With

For i = 1 To UBound(x)
If x(i, 1) = "Total" Then bu = True
If bu Then
dt = x(i, 5)
x(i, 5) = x(i, 1) 'Total
x(i, 1) = dt 'OrderDate
End If
Next i

Range("G1").Resize(UBound(x), UBound(x, 2)).Value = x
End Sub

[snb]

Sub M_snb()
With Columns(1).Find("Total")
sn = .Resize(2000, 5)
.Resize(UBound(sn), 5) = Application.Index(sn, [row(1:2000)], Array(5, 2, 3, 4, 1))
End With
End Sub

[nilem]

Hi Snb,
what if there are more than 60,000 rows in the data?
Glad to see you )

[snb]

Hi @Nil,

Then I'd ask for a better CSV-file :banghead:
Likewise (has been some time....)