Scraping Java Webpage into Excel 2013

Here is the code:-
I am writing the code here straightaway. It may have some bugs but should do the job.

Before running this code please refer.
Microsoft Microsoft Internet Controls
and
Microsoft Html object lib in the VB editor>>tools>>references

Sub WebScrapper()
 Dim IE As New InternetExplorer
 Dim Doc  As HTMLDocument
 Dim tbl   As HTMLTable
 Dim tblRows As IHTMLElementCollection
 Dim Ro As HTMLTableRow
 Dim Ce As HTMLTableCell

 URL = "http://financials.morningstar.com/valuation/price-ratio.html?t=INTC&region=usa&culture=en-US"
 
 IE.navigate URL
 IE.Visible = True
 
 Do While IE.Busy Or IE.readyState <> 4: DoEvents: Loop
 
 Set Doc = IE.document
  
 Set tbl = Doc.getElementsByTagName("tbody")(2)
 Set tblRows = tbl.getElementsByTagName("tr")
 
 For Each Ro In tblRows
  r = r + 1
  For Each Ce In Ro.Cells
    c = c + 1
    Cells(r, c) = Ce.innerText
   Next
 c = 0
 Next
    
 IE.Quit
    
 MsgBox "Table Scrapped", vbInformation

End Sub

Now this one is more efficient than previous one. Very Fast.

Before running this code please refer.
Microsoft Microsoft Winhttp Services
and
Microsoft Html object lib in the VB editor>>tools>>references

Sub WebScrapper()
 Dim Req        As New WinHttpRequest
 Dim Doc        As New HTMLDocument
 Dim tbl        As HTMLTable
 Dim tblRows    As IHTMLElementCollection
 Dim Ro         As HTMLTableRow
 Dim Ce         As HTMLTableCell

 URL = "http://financials.morningstar.com/valuation/valuation-history.action?&t=XNAS:INTC&region=usa&culture=en-US&cur=&type=price-earnings&_=1429984664101"

 With Req
  .Open "GET", URL, False
  .setRequestHeader "User-Agent", "User-Agent:Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/42.0.2311.90 Safari/537.36"
  .send
  Doc.body.innerHTML = .responseText
 End With
 
 Stop
 
 Set tbl = Doc.getElementsByTagName("tbody")(0)
 Set tblRows = tbl.getElementsByTagName("tr")
 
 For Each Ro In tblRows
  r = r + 1
  For Each Ce In Ro.Cells
    c = c + 1
    Cells(r, c) = Ce.innerText
   Next
 c = 0
 Next
    
 MsgBox "Table Scrapped", vbInformation

End Sub

Sorry, for replying late.
Actually I was in the process of learning web scrapping.
In the way, I found your question. So I had to answer.

No need to thank.
Sorry, I didn't understand your question.

Is there a way to shift the outer table contents easily with the inner r,c parameters?