Sorteren variabel bereik

[BasHobus]

Beste Mensen,

Om uren bij te houden ben ik een overzicht op aan het stellen in excel.
Graag zou ik per project de uren willen sorteren op personeelsnummer.

In voorbeeld is dit bijvoorbeeld bij project 1 bereik B6;D11
bij project 2 B13;B17

De kolommen zullen gelijk blijven maar de rijen zullen verschillen per project.

Hoe kan ik er voor zorgen dat ik deze per project kan sorteren op personeelsnummer zonder dit handmatig iedere keer aan te moeten passen?

De huidige macro werkt niet naar behoren

Bekijk bijlage voorbeeld.xlsm

 

[VenA]

Mij lijkt een gestructureerde gegevensinvoer logischer. Denk hierbij aan een tabel en om er informatie er uit te halen aan een draaitabel.

Deze code lijkt het te doen in het voorbeeldbestandje.

Sub VenA()
For Each ar In Blad13.UsedRange.SpecialCells(-4123).Areas
  If ar.Rows.Count > 1 Then ar.Offset(, -2).Resize(ar.Rows.Count, 3).Sort ar(1).Offset(, -1)
Next ar
End Sub

 

[BasHobus]

Kan ik de code zo aanpassen dat er niet 1 kolom vanuit de uren wordt meegesorteerd maar 2. zo kan ik een kolom opmerkingen bij de uren toevoegen