Excel Hyperlink(mehrfach) in "Webseite" nennen, ohne Link zu ändern

Hallo Community,

ich habe eine Tabelle mit Hyperlinks(Webseiten).
Da diese unterschiedlichlich lang sind und ich es gerne ordentlich hätte, würde ich gerne alle
Hyperlinks in "Webseite" bennen...funktionieren würde es mit =hyperlink(zelle der webseite);"Webseite"

Das setzt aber vorraus dass ich eine Spalte habe wo die originalen drinstehen und ich dann eine Formel dafür verwende.
Genau das möchte ich nicht, vermutlich benötige ich ein Makro um folgendes umzusetzen:

www.webseite_1.de -> Webseite
www.webseite_2.de -> Webseite
www.webseite_3.de -> Webseite
www.webseite_4.de -> Webseite
www.webseite_5.de -> Webseite

Kann mir jemand bei meinem problem helfen? Leider kenne ich mich in der Makro Programmierung nicht gut aus.

Gerne auch andere Lösungsvorschläge.

Viele Grüße

Sub KonvertiereZellenZuHyperlinks()
    With ActiveSheet
        For Each cell In .Range("A2:A" & .Cells(Rows.Count, "A").End(xlUp).Row)  
            If cell.Value <> "" then  
                .Hyperlinks.Add cell, "https://" & cell.Value, TextToDisplay:="Webseite"  
            End if
        Next
    End With
End Sub