Kolommen in tabel verplaatsen met VBA

[veenvlij]

Via externe partijen krijgen wij .csv bestanden binnen met 20 kolommen die wij in excel verder bewerken.
Nu zijn de kolommen niet in de juiste volgorde, en ook per partij weer in verschillende volgorde aangeleverd.

Is het mogelijk om in VBA de kolommen in de juiste volgorde te zetten?

KolomD KolomG KolomA KolomC KolomB KolomE

naar

KolomA KolomB KolomC KolomD KolomE KolomG

 

[VenA]

Gewoon een macro opnemen en dan het resultaat een beetje opschonen. Je krijgt dan zoiets.

Sub VenA()
Application.ScreenUpdating = False
    Columns("C:C").Cut
    Columns("A:A").Insert
    Columns("E:E").Cut
    Columns("B:B").Insert
    Columns("E:E").Cut
    Columns("C:C").Insert
    Columns("F:F").Cut
    Columns("E:E").Insert
    Columns("F:F").Cut
    Columns("H:H").Insert
End Sub