お世話になります。
以下のウェブ情報サイトを参考にして

「スマホにPC版ボタンを付ける方法」
を試しているのですが↓↓↓
https://webmist.info/rakuten-pc-button/

タグが正しくないようで
「許可されていないURLの記載があります。 」
で更新ができません。
どうようにしたら、できますでしょうか。
また、もっと簡単な方法があればお教えできますでしょうか。
よろしくお願いいたします。

Sub セル末尾文章追加()
Dim i As Integer
For i = 2 To Sheets(1).UsedRange.Rows.Count
Sheets(1).Cells(i,53).Value=Sheets(1).Cells(i,53).Value&"<br><br>"& Chr(10)&"
<table width='85%'align='center'bgcolor='#ff2525'cellpadding='5'><tr>
<td align='center'height='50'><b><a href='http://item.rakuten.co.jp/******/"& Sheets(1).Cells(i,2).Value &"/?force-site=pc'>
<font color='#ffffff' size='5'>PC版で見る≫</font></a></b></td></tr></table>"
Next
Msgbox("終了")
End Sub