Pull data from web within date range or recent date

Assuming test date:

Function GetWellData(url As String) As Variant

    Dim arr(1 To 3)
    Dim Doc As Object
    Dim oTable As Object
    Dim PageSource As String
    Dim baseDate As Date
    Dim x As Long
        
       
        With CreateObject("msxml2.xmlhttp")
            .Open "GET", url, False
            .send
            PageSource = .responseText
        End With
        
          ' Create the HTML Document object.
            Set Doc = CreateObject("htmlfile")
            Doc.body.innerhtml = PageSource
        
            Set oTable = Doc.getElementById("DataGrid")
            
            baseDate = CDate(oTable.Rows(2).Cells(6).innerText)
            
            For x = 2 To oTable.Rows.Length - 1
            
                If oTable.Rows(x).Cells(0).ChildNodes(0).nodeName = "A" Then
                    If CDate(oTable.Rows(x).Cells(6).innerText) > baseDate Then
                        arr(1) = oTable.Rows(x).Cells(1).innerText
                        arr(2) = oTable.Rows(x).Cells(6).innerText
                        arr(3) = oTable.Rows(x).Cells(0).ChildNodes(0).Href
                        baseDate = CDate(oTable.Rows(x).Cells(6).innerText)
                    End If
                End If
                
            Next x
    
      GetWellData = arr
      
End Function