Excel - copia texto do url para o celular

Question

Eu tenho um excelsheet contendo url como:

|        column A        |        column B        |
---------------------------------------------------
| www.example.com/page1  |
| www.example.com/page2  |

Eu gostaria de copiar o conteúdo html do URL fornecido na coluna A para a coluna B. Agora, já encontrei alguma documentação sobre como importar o webcontent usando VB ( link )

edit : Minhas desculpas, eu já consegui obter partes da minha consulta usando a fonte acima. Agora posso extrair o conteúdo da URL, iterando por uma lista de URLs:

Sub WebData()

Dim wSU As Worksheet
Dim wSR As Worksheet
Dim wSS As Worksheet

Dim iForRow As Integer
Dim iLastRow As Integer
Dim sURL As String

Set wSU = ThisWorkbook.Sheets("URLs")
Set wSR = ThisWorkbook.Sheets("Results")
Set wSS = ThisWorkbook.Sheets("Scrape")

Application.ScreenUpdating = False
iLastRow = wSU.Cells(wSU.Rows.Count, "a").End(xlUp).Row
For iForRow = 1 To iLastRow Step 1
sURL$ = wSU.Cells(iForRow, "a").Value
With wSS.QueryTables.Add(Connection:= _
"URL;" & sURL, Destination:=wSS.Range("A1"))
.Name = _
"example.aspx"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlNone
.WebPreFormattedTextToColumns = False
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
wSR.Cells(iForRow + 1, "a").Value = wSS.Range("A3").Value + "<br>" +    wSS.Range("A5").Value

Next iForRow
Application.ScreenUpdating = True
MsgBox "Process Completed"
End Sub

Existe alguma maneira de importar o HTML bruto da fonte para o excel? Agora ele converte o webcontent em texto simples, mas eu gostaria de preservar a marcação html. Eu já tentei configurar .WebFormatting e.WebPreFormattedTextToColumns para nenhum, sem sucesso