res = Split(GetTags(rep, "tr", "", "", "outerHTML"), ARSEP)
'MsgBox (res)
'Worksheets(1).Cells(ActiveCell.Row, 56) = res(10)
MsgBox (res(11))

zn = GetTags(res(10), "b", "", "", "innerHTML")
Worksheets(1).Cells(ActiveCell.Row, 56) = zn
zn = GetTags(res(11), "b", "", "", "innerHTML")
Worksheets(1).Cells(ActiveCell.Row, 57) = zn

if(preg_match_all('|<td align="left" valign="top" width="\d*[\s\S]*>(.+)</td>\s*<td[\s\S]*width="75%"[\s\S]*>(.+)</td>|isU', $mhtml, $maindata)){
            // нашли и разбираем данные
            foreach($maindata[1] as $td => $cat){
                $cat = strip_tags(trim($cat));
                $maindata[2][$td] = strip_tags(trim($maindata[2][$td]));
if(strpos($cat, 'Площадь') !== false) $ploshad_GKN = trim($maindata[2][$td]);

                     <tr>
                            <td align="left" valign="top" width="250">
                                <nobr>Этаж:</nobr>
                            </td>
                            <td width="75%" valign="top">
                                    <b>21</b>
                            </td>
                        </tr>

                    <tr>
                        <td align="left" valign="top" width="250" nowrap="true">
                            <nobr>
                                Площадь ОКС'a:
                            </nobr>
                        </td>
                        <td width="75%" valign="top">
                                <b>38,9</b>
                        </td>
                    </tr>

                    <tr>
                        <td align="left" valign="top" width="250" nowrap="true">
                            Единица измерения (код):
                        </td>
                        <td width="75%" valign="top">
                            <b>Квадратный метр</b>
                        </td>
                    </tr>

Sub Test1()
    Dim sEnv As String, sURL As String
    Dim xmlhtp As Object
    sURL = "https://rosreestr.ru/wps/portal/p/cc_ib_portal_services/online_request/!ut/p/z1/pVFNc4IwEP01Xs1GtKK3...jc8fmMbUlN0GT-vHyezVllBEZg-KiwhbK0W-3kH6km9d7YKTu2d-9gXOgOyt/p0/IZ7_01HA1A42K0EE90ABVVBS3S2001=CZ6_GQ4E1C41KGQ170AIAK131G00T5=MEcontroller!QCPObjectDataController==/?object_data_id=" & Cells(ActiveCell.Row, 55) & "&dbName=firLite®ion_key=177"
    Set xmlhtp = CreateObject("MSXML2.XMLHTTP")
    With xmlhtp
        .Open "POST", sURL, "False"
            '  .setRequestHeader "Content-Length", b
            '   .setRequestHeader "Content-Type", "application/json; charset=utf-8"
            '   .setRequestHeader "Accept", "application/json"
              '  .setRequestHeader "Authorization", "Token 2688a4ce9e30e66310292f3bf96a2b9881711279"
                .setRequestHeader "Host", "http://rosreestr.ru/api/online/address/fir_objects"
        .send ' (sEnv)
       Worksheets(1).Cells(ActiveCell.Row, 56) = .responseText
    End With