VBA: MSXML2.XMLHTTP: экспорт данных на сайт

Sub zapros()
Dim XMLHTTP As MSXML2.XMLHTTP
Set XMLHTTP = New MSXML2.XMLHTTP
    XMLHTTP.Open "POST", "https://crm.sotmarket.ru/modules/wms/router.php", True
    XMLHTTP.SetRequestHeader "Host", "crm.sotmarket.ru"
    XMLHTTP.SetRequestHeader "method", "POST"
    XMLHTTP.SetRequestHeader "path", "/modules/wms/router.php"
    XMLHTTP.SetRequestHeader "scheme", "https"
    XMLHTTP.SetRequestHeader "version", "HTTP/1.1"
    XMLHTTP.SetRequestHeader "accept", "*/*"
    XMLHTTP.SetRequestHeader "accept-encoding", "gzip, deflate"
    XMLHTTP.SetRequestHeader "accept-language", "ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4"
    XMLHTTP.SetRequestHeader "content-length", "121"
    XMLHTTP.SetRequestHeader "content-type", "application/x-www-form-urlencoded; charset=UTF-8"
    XMLHTTP.SetRequestHeader "cookie", "rSid= ; cart_cid= ; mag_cook_client= ; customer_sid= ; sClientId_real= ; gtm_ucn=true; _ga=GA1.2.269322573.1422956517; __utma=28913251.269322573.1422956517.1422956518.1422967375.2; __utmc=28913251; __utmz=28913251.1422956518.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); organic=2; p_o=49208256; d_traf=11; tr=o; last_prod= ; l= ; cart=empty; stm_stat_page_views=8; stm_stat_page_time=2402; __utmt=1; __utma=80654149.725495024.1422951443.1423650898.1423657333.40; __utmb=80654149.2.10.1423657333; __utmc=80654149; __utmz=80654149.1422951443.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); last_login=; PHPSESSID="
    XMLHTTP.SetRequestHeader "origin", "https://crm.sotmarket.ru"
    XMLHTTP.SetRequestHeader "referer", "https://crm.sotmarket.ru/"
    XMLHTTP.SetRequestHeader "user-agent", "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/40.0.2214.111 Safari/537.36"
    XMLHTTP.SetRequestHeader "x-requested-with", "XMLHttpRequest"
    
    XMLHTTP.Send "doc_id=30025&sklad_id=3&action=wms/productbarcodes/WmsProductsChangeOptionsXProduct.add_product&barcode=1985010702108"

End Sub