サブドメインやドメインが変更になったため、ハイパーリンクの表も修正しなければなりません。
下記の表では、kokodaneをsoredaneに変更することになりました。

Excel関数にREPLACE関数がありますが、VBAでもReplace関数があり、構文は次のようになります。

Replace(expression, find, replace[, start[, count[, compare]]])

REPLACE関数の構文に置換したいURLの文字列をあてはめると、

Replace(置換の対象となるリンク, "kokodane", "soredane")

アクティブシートのリンクは、変数で指定します。今回はhにします。

Dim h As Hyperlink

For Each ステートメントと組み合わせます。

Sub ハイパーリンクのアドレスの一部だけ変更する1()
 Dim h As Hyperlink
    For Each h In ActiveSheet.Hyperlinks
        h.Address = Replace(h.Address, "kokodane", "soredane")
    Next h
End Sub

操作対象は、ActiveSheet.Hyperlinksです。コードを実行すると、見た目は変わりませんが、

アドレスを隣の列に抽出して確認します。変更されています。