Generar un índice en un libro de excel

Tengo un libro con un índice de las hojas que contiene,

Y necesito que cuando agregue una nueva hoja me la relacione en automático en orden alfabético e insertando una fila y coloque los valores de precios en la celda correspondiente.

Esta es la macro que utilizo actualmente la cual encontré en internet y quisiera ver si me puede ayudar a modificarla

Private Sub Worksheet_Activate()
Dim cHoja As Worksheet
Dim L As Long
L = 1

With Me
.Columns(1).ClearContents
.Cells(1, 1) = "INDICE"
.Cells(1, 1).Name = "Indice"
End With

For Each cHoja In Worksheets

If cHoja.Name <> Me.Name Then
L = L + 1

With cHoja
.Range("A1").Name = "Inicio" & cHoja.Index
.Hyperlinks.Add Anchor:=.Range("A1"), Address:=" ", SubAddress:="Indice", TextToDisplay:="Volver al índice"
End With
Me.Hyperlinks.Add Anchor:=Me.Cells(L, 1), Address:=" ", SubAddress:="Inicio" & cHoja.Index, TextToDisplay:=cHoja.Name

End If

Next cHoja
End Sub