Try this
Sub WebTable()
Dim ie As New InternetExplorer
Dim url As String
Dim trCollection As Object
Dim tdCollection As Object
Dim tdObj As Object
Dim trObj As Object
url = "http://www.asx.com.au/asx/markets/dividends.do?by=asxCodes&asxCodes=ont&view=latest"
ie.navigate url
Debug.Print url
'loop until complete so program doesn't freeze
Do
DoEvents
Loop Until ie.readyState = READYSTATE_COMPLETE
'get everything in the dividends table using its id
Set tbObj = ie.document.getElementById("dividends") 'all table elements including headers
'get the four rows for the ONT stock (headings and data elements
Set trCollection = tbObj.getElementsByTagName("tr")
Dim i As Integer
i = 1
'get the eight data items for each row of the ONT stock e.g stock price date etc.
For Each trObj In trCollection
If i = 1 Then
'print each data element one by one for each of the four rows
Set tdCollection = trObj.getElementsByTagName("th")
Else
Set tdCollection = trObj.getElementsByTagName("td")
End If
i = i + 1
For Each tdObj In tdCollection
Debug.Print tdObj.innerText
Next
Next
End Sub