automatisch tag plaatsen voor eerste A, eerste B eerste C

[gvanwijk]

Hoe kan ik een bepaalde tag (<h10>A</h10>) in de kolom vóór de eerste naam met een nieuwe beginletter krijgen (lijst = ongeveer 3000 namen).
Dus bij de eerste naam die begint met een A, de eerste naam die begint met een B etc. Zie voorbeeldbestand.

Het bestand dat ik daarmee krijg kan ik dan inschieten in een bestaand programma.
Dan hoef ik niet elke keer wanneer de lijst vernieuwd wordt nieuwe tags de plaatsen voor elke eerste plantnaam die begint met een nieuwe letter.

Dus zo (maar het bestand is duidelijker)

<h10>A</h10> Aurinia sax. 'Gold Cushion'
Azorella trifurcata 'Nana'
Azorella trifurcata 'Prio'
<h10>B</h10> Ballota pseudodictamnus
Bupleurum falcatum
<h10>C</h10> Calamagrostis acut. 'Karl Foerster'
Calamagrostis acut. 'Overdam'
Calamagrostis acut. 'Waldenbuch'

 

[HSV]

Bv.

Sub hsv()
 Cells(5, 1).CurrentRegion.Resize(, 2).Columns(2).Name = "b"
 [b].Offset(, -1) = [if(left(b,1)<>left(offset(b,-1,0),1),"<h10>"&left(b,1)&"</h10>","")]
End Sub

 

[gvanwijk]

@ HSV

Dank je!