Aby si sa netrápil, tu máš celé makro, ktoré Ti to urobí:

Sub FillHyperT()
    Application.ScreenUpdating = False
    For i = 2 To 56
        With Cells(i, 1)
            .FormulaR1C1 = "=LEFT(R1C1,46) & MID(R[-1]C1,47,2)+1 & RIGHT(R1C1,33)"
            .Copy
            .PasteSpecial Paste:=xlPasteValues
        End With
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=ActiveCell.Text
    Next i
    Application.CutCopyMode = False
    Cells(1, 1).Select
End Sub

Tento konkrétny kód to spracováva:
- pre prípad, že začíname v bunke A1
- že sa jedná o ten reťazec, ktorý si uviedol
- končíme so 100-ou

Ak to potrebuješ pre iné umiestnenie, iné textové reťazce, aplikovať pre iné rozsahy, musíš si to upraviť podľa Tvojich potrieb.
Aby si pochopil, ako sa vytvára ďalšia položka, preštuduj si vzorec uvedený v mojej prvej odpovedi.