Alfabetisch ordenen van bepaalde kolommen in een tabel

[Blixem]

Hallo,

Ik zoek al geruime tijd een oplossing om in een tabel een macro toe te passen die bepaalde kolommen gaat sorteren als er nieuwe moesten bijkomen.
Ook moeten bepaalde kolommen blijven staan -
Zoals file in bijlage, dienen kolom B C D E altijd te blijven staan.
Kolommen F tot mogelijks bvb BA (liefst zo dynamisch mogelijk) zouden adhv een macro dus moeten sorteren op basis van column header, als ze deel uit maken van de tabel (Range?)



Excel voorbeeld in bijlage, ik hoop dat ik hierbij alles zo goed mogelijk heb kunnen uitleggen.

Bij vragen shoot.

 

[snb]

In een listobject kan zo niet gesorteerd worden; in een range wel.

Sub M_snb()
  Sheet1.ListObjects(1).Unlist

  With Sheet1.Cells(1).CurrentRegion
    .Offset(, 5).Resize(, .Columns.Count - 4).Sort Cells(1, 6), 1, , , , , , 1, , , 2
    Sheet1.ListObjects.Add 1, .Offset, , 1
  End With
End Sub

 

[Blixem]

Waar ik voor vreesde dat t in een tabel/object niet kan.
Maar deze code helpt me dan ook wel verder.
Hartelijk bedankt!

 

[snb]

Niet citeren svp.