Format Cell to display HTML code as formatted text

Hi all, new to this forum and spend couple of hours digging for this but cant seem to find the right resolution.

I am trying to convert the following HTML content that is displayed within a merged cell (A1-I1):

"<OL> <LI>If i modify cheese.</LI> <LI>If i modify the filter.</LI> <LI>If i modify the filter to show.</LI> <LI>A "close" CTA is available.</LI></OL><BR>"

So that it looks like this in the merged cell:

1. If i modify cheese.
2. If i modify the filter.
3. If i modify the filter to show.
4. A "close" CTA is available.

This works if content is only in cell A1 but then copies to 4 rows.

Sub Sample()
    Dim Ie As Object

    Set Ie = CreateObject("InternetExplorer.Application")

    With Ie
        .Visible = False

        .Navigate "about:blank"

        .document.body.InnerHTML = Sheets("Sheet1").Range("A1").Value

        .document.body.createtextrange.execCommand "Copy"
        ActiveSheet.Paste Destination:=Sheets("Sheet1").Range("A1")

        .Quit
    End With
End Sub