On Error Resume Next
    For Each MyElement In Col_1
        If IsInCollection(Col_2, CStr(MyElement)) Then
            Col_sum.Add CStr(MyElement), CStr(MyElement)
        End If
    Next MyElement
    On Error GoTo 0

Private Function IsInCollection(Coin As Object, _
    Item As String) As Boolean
    Dim Obj As Object
    On Error Resume Next
    Set Obj = Coin(Item)
    IsInCollection = Not Obj Is Nothing
End Function

Sub primer()

Dim my_url As String
Dim html_doc As Variant, xml_obj As Variant
Dim Tag_tab As Object
my_url = "http://www.nowgoal.com/6in1.aspx?id=31"

Set html_doc = CreateObject("htmlfile")
Set xml_obj = CreateObject("MSXML2.XMLHTTP")

xml_obj.Open "GET", my_url, False
xml_obj.send
html_doc.body.InnerHTML = xml_obj.responseText
Set xml_obj = Nothing
MsgBox html_doc.body.getElementsByTagName("table")(0).getElementsByTagName("tr")(0).innertext
End Sub

Sub Generic_Match_List()
    Dim i As Integer, r As Integer, c As Integer
    Dim mas As Variant
    Dim my_url As String
    For i = 1 To Range("Список[Ссыль]").Count
        my_url = Range("Список[Ссыль]")(i) & "/matches/"
        Set html_doc = CreateObject("htmlfile")
        Set xml_obj = CreateObject("MSXML2.XMLHTTP")
        xml_obj.Open "GET", my_url, False
        xml_obj.send
        html_doc.body.InnerHTML = xml_obj.responseText
        Set xml_obj = Nothing
        'Получение массива с данными
        With html_doc.body.getElementsByTagName("table")(0).getElementsByTagName("tr")
            ReDim mas(.Length, 6)
            For r = 1 To .Length
                For c = 0 To 5
                    mas(r, c) = .item(r).Cells(c).innertext
                    Debug.Print mas(r, c)
                Next c
                mas(r, 6) = .item(r).getElementsByClassName("score-time score")(0).GetAttribute("href")
                Debug.Print mas(r, 6)
            Next r
        End With
    Next i
End Sub

mas(r, 6) = .item(r).getElementsByClassName("score-time score")(0).GetAttribute("href")