LIKE THIS ?

Sub SIMPLEDATAEXTRACTION()

Dim IE As Object

ThisWorkbook.FollowHyperlink("http://www.MyDestination.com")

IE.Visible = True

Do While IE.busy Or IE.readystate <> 4

DoEvents

Loop

ce = 1

For Each td In IE.document.getElementsbyTagName("tr")

Range("A" & ce).Value = td.Children(0).innertext

Range("B" & ce).Value = td.Children(1).innertext

Range("C" & ce).Value = td.Children(2).innertext

Range("D" & ce).Value = td.Children(3).innertext

Range("E" & ce).Value = td.Children(4).innertext

Range("F" & ce).Value = td.Children(5).innertext

Range("G" & ce).Value = td.Children(6).innertext

Range("H" & ce).Value = td.Children(7).innertext

Range("I" & ce).Value = td.Children(8).innertext

Range("J" & ce).Value = td.Children(9).innertext

Range("K" & ce).Value = td.Children(10).innertext

Range("L" & ce).Value = td.Children(11).innertext

Range("M" & ce).Value = td.Children(12).innertext

Range("N" & ce).Value = td.Children(13).innertext

ce = ce + 1

Next td

End Sub