I have posted a thread before and it is solved in perfect way at this link Scrape using XMLHTTP throws error at specific class name And here is the working code
Sub GetProfileInfo()
Const URL$ = "https://www.zillow.com/detroit-mi/real-estate-agent-reviews/?page="
Dim Http As New XMLHTTP60, Html As New HTMLDocument
Dim post As HTMLDivElement, R&, P&
For p = 1 To 3 'put here the highest number you wanna traverse
    With Http
        .Open "GET", URL & p, False
        .send
        Html.body.innerHTML = .responseText
    End With
    For Each post In Html.getElementsByClassName("ldb-contact-summary")
        With post.querySelectorAll(".ldb-contact-name a")
            If .Length Then R = R + 1: Cells(R, 1) = .item(0).innerText
        End With
        With post.getElementsByClassName("ldb-phone-number")
            If .Length Then Cells(R, 2) = .item(0).innerText
        End With
    Next post
Next p
End Sub
But it seems that it works only on windows. How can I get it work on MAC?
 
    