web query not return table values

Dim HTMLDoc As New HTMLDocument
Dim objElementsTd As Object
Dim objTd As Object
Dim lRow As Long
Dim myarray()
Dim oIE As InternetExplorer
Set oIE = New InternetExplorer
oIE.Navigate "http://www.nseindia.com/live_market/dynaContent/live_watch/live_index_watch.htm"
'oIE.Navigate "http://www.teamrankings.com/mlb/stat/runs-per-game"
oIE.Visible = True
Do Until (oIE.ReadyState = 4 And Not oIE.Busy)
DoEvents
Loop
Application.Wait (Now + TimeValue("0:00:03"))
HTMLDoc.body.innerHTML = oIE.Document.body.innerHTML
With HTMLDoc.body
Set objElementsTd = .getElementsByTagName("td")
End With
lRow = 1
For Each objTd In objElementsTd
Debug.Print objTd.innerText
Cells(lRow, 1).value = objTd.innerText
lRow = lRow + 1
Next
End Sub

'This VBA project requires the following references (in Tools -> References):
'Microsoft Internet Controls
'Microsoft HTML Office Library
Sub webtable()
Dim HTMLDoc As New HTMLDocument
Dim objElementsTd As Object
Dim objTd As Object
Dim lRow As Long
Dim myarray()
Dim oIE As InternetExplorer
Set oIE = New InternetExplorer
oIE.Navigate "http://www.nseindia.com/live_market/dynaContent/live_watch/live_index_watch.htm"
Do Until (oIE.ReadyState = 4 And Not oIE.Busy)
    DoEvents
Loop
Application.Wait (Now + TimeValue("0:00:03"))
HTMLDoc.body.innerHTML = oIE.Document.body.innerHTML
With HTMLDoc.body
Set elemcollection = .getElementsByTagName("Table")
 For t = 0 To elemcollection.Length - 1
        For r = 0 To elemcollection(t).Rows.Length - 1
            For c = 0 To elemcollection(t).Rows(r).Cells.Length - 1
                ThisWorkbook.Sheets("Sheet1").Cells(ActRw + r + 1, c + 1) = elemcollection(t).Rows(r).Cells(c).innerText
            Next c
        Next r
        ActRw = ActRw + elemcollection(t).Rows.Length + 1
    Next t
End With
oIE.Quit
End Sub