Tabloya çevirmek

[ByTurhan1]

Merhabalar elimde internetten veri çekmek için hızlı çalışan bir kod mevcut fakat fazla bilgim olmadığı için tabloya çevirmeyi başaramadım.
Kodlarıma çalıştırdığımda yalnızca A1 sütununa yazıyor. Ben bunu linkteki sayfada ki gibi tablo olarak almak istiyorum yardımcı olabilir misiniz ?

Sub Web_XmlHttp()

    Dim xmlHTTPReq As Object
    Dim htmldoc As HTMLDocument
    Dim postURL As String

    Set xmlHTTPReq = CreateObject("MSXML2.XMLHTTP")
    Set htmldoc = New HTMLDocument

    postURL = "http://www.nowgoal3.com/match/h2h-1921051"

    With xmlHTTPReq
        .Open "GET", postURL, False
        .send
    End With

    htmldoc.body.innerHTML = xmlHTTPReq.responseText
    htmldoc.Close

  Range("A1") = htmldoc.getElementsByClassName("porletP")(3).innerText


    Set htmldoc = Nothing
    Set xmlHTTPReq = Nothing
End Sub