Function HistoricalData$(dateFrom$, dateTo$)
     Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
     With oXMLHTTP
         .Open "POST", "http://ru.investing.com/instruments/HistoricalDataAjax", False
             .setRequestHeader "Accept", "text/plain, */*; q=0.01"
             .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
             .setRequestHeader "Host", "ru.investing.com"
             .setRequestHeader "Accept-Encoding", "gzip,deflate"
             .setRequestHeader "X-Requested-With", "XMLHttpRequest"
             .setRequestHeader "Referer", "http://ru.investing.com/indices/us-spx-500-historical-data"
             .setRequestHeader "Accept-Language", "uk-UA,uk;q=0.8,ru;q=0.6,en-US;q=0.4,en;q=0.2,de;q=0.2"
             .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.3; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/37.0.2062.103 Safari/537.36"
        .send "action=historical_data&curr_id=166&st_date=" & dateFrom & "&end_date=" & dateTo & "&interval_sec=Daily"
        HistoricalData = .responseText
     End With
     Set oXMLHTTP = Nothing
End Function

Sub test()
Debug.Print HistoricalData("01/07/2014", "09/09/2014")
End Sub

Sub test()

T = HistoricalData("01/07/2014", "09/09/2014")

Dim mdoc, HE, t_ype, Name, objIE, HB, R, C
Set objIE = CreateObject("InternetExplorer.Application")
objIE.navigate "res://mshtml.dll/blank.htm"
objIE.Document.Write T
Cells.ClearContents
For Each HE In objIE.Document.getElementsByTagName("tr")
R = R + 1
C = 0
     For Each HB In HE.Cells
         C = C + 1: Cells(R, C) = HB.innertext
     Next
  Next
Set objIE = Nothing
End Sub