Критерий для количества данных на веб-странице

[mephist]

Добрый день, уважаемые форумчане.

Я стараюсь подгрузить данные с одного большого архивного сайта.
Данные на этом сайте размещаются на отдельных страницах page с 1 по 9965 (http://www.kicktraq.com/archive?page=8697), причем на одной странице бывает максимум 15 записей. У меня есть макрос, который с этой задачей справляется если данных на странице ровно 15. Но если их меньше то, он постоянно вылетает.

Sub list()
'
' list 
'

    Dim sURI, h As String, htmlcode As String, i, j, k As Long
    k = 0
    For j = 1 To 9965
        sURI = "http://www.kicktraq.com/archive?page=" & j
         With CreateObject("MSXML2.XMLHTTP")
            .Open "GET", sURI, False
            .Send
            htmlcode = .ResponseText
        End With
        For i = 1 To 15
            Cells(k + i + 5, 1).FormulaR1C1 = k + i
            descr$ = Split(Split(htmlcode, "project-infobox")(i), "><")(1)
            Cells(k + i + 5, 2).FormulaR1C1 = descr$
            descr$ = Split(Split(htmlcode, "project-infobox")(i), "><")(2)
            Cells(k + i + 5, 3).FormulaR1C1 = descr$
            descr$ = Split(Split(htmlcode, "project-details")(i), "br")(1)
            Cells(k + i + 5, 4).FormulaR1C1 = descr$
            descr$ = Split(Split(htmlcode, "project-details")(i), "<br")(3)
            Cells(k + i + 5, 5).FormulaR1C1 = descr$
            descr$ = Split(Split(htmlcode, "project-cat")(i), """")(2)
            Cells(k + i + 5, 6).FormulaR1C1 = descr$
            descr$ = Split(Split(htmlcode, "project-infobox")(i), """")(2)
            Cells(k + i + 5, 16).FormulaR1C1 = descr$
        Next i
        k = i * j - j
    Next j
    

'
End Sub

Подскажите, пожалуйста, можно ли как-нибудь заранее определить кол-во записей на странице, чтобы использовать, например, цикл while или как-нибудь по другому обойти ошибку, когда записей меньше 15.

Заранее большое спасибо.

[IgorGO]

может так:

For i = 1 To ubound(Split(htmlcode, "project-infobox"))

[mephist]

Большое спасибо. все отлично получилось