vba 크롤링, 버튼 누를때 리퀘스트 따기

    With WD
        If vUser(3) = "AA" Then .Get "https://www.someserver.co.kr/ca_title.php" Else GoTo EXIT_RUN
        On Error GoTo 0
        .FindElementById("s_class").AsSelect.SelectByText (IIf(vUser(6) = "전체", vUser(5), vUser(6))) 
        .FindElementByName("special").AsSelect.SelectByText (vUser(7)) 
        .FindElementByName("scale").AsSelect.SelectByText ("100") 
        Set oNODEs = .FindElementsByClass("btn_box_s")
        For Each oNODE In oNODEs
          If oNODE.TagName = "input" Then <strong><span style="color: #0000ff;">oNODE.Click</span></strong>
        Next oNODE
 
        On Error Resume Next 
        Set oNODE = .FindElementByClass("no_print")  
 
        Set oNODE = .FindElementByClass("f13") 
        iCnt = oNODE.Text
        iCnt = Replace(Mid(iCnt, InStr(1, iCnt, ":") + 1), "건)", "")
        iCnt = CLng(iCnt)
 
        ReDim vD(1 To iCnt + 1, 1 To 14) 
        If iCnt > 100 Then
            Set oNODE = .FindElementByClass("pagn")
            sHref = oNODE.FindElementByTag("a").Attribute("href")
        End If
 
        Do While p < iCnt
            ChangeProgress Int(p * 100 / iCnt)
            ChangeProgressDescription p & "/" & iCnt & " " & vUser(3) & "자료를 조회중입니다."
 
            Set trs = .FindElementsById("list_body")(1).FindElementsByTag("tr")
            R = 0
            For Each tr In trs
                R = R + 1
                c = 0
                ChangeProgress Int((p + R) * 100 / iCnt)
                ChangeProgressDescription p + R & "/" & iCnt & " " & vUser(3) & "자료를 조회중입니다."
                ReDim vT(1 To 8)
                For Each td In tr.FindElementsByTag("td")
                    c = c + 1
                    vT(c) = td.Text 
                Next td
                On Error Resume Next
                vD(p + R, 1) = vUser(3)
                vD(p + R, 2) = Split(vT(3), Chr(10))(1)
                vD(p + R, 3) = Split(vT(3), Chr(10))(0)
                vD(p + R, 4) = Split(vT(4), Chr(10))(0)
                vD(p + R, 5) = Trim(Split(REGEXEXTRACT(vT(4), "\d*,*\d*.\d*㎡"), "㎡")(0))   '"\s\d*.\d*㎡"
                vD(p + R, 6) = Split(vT(5), Chr(10))(0)
                vD(p + R, 7) = Split(vT(5), Chr(10))(1)
                vD(p + R, 8) = Replace(vT(6), Chr(10), "")
                On Error GoTo 0
            Next tr
            p = p + 100
            If p < iCnt Then sHref = Left(sHref, InStr(1, sHref, "start=", vbTextCompare) + 5) & p
            If p < iCnt Then .Get sHref
            Range("A10").Resize(UBound(vD, 1), UBound(vD, 2)) = vD
        Loop
    End With