Set httpRequest = CreateObject("MSXML2.XMLHTTP")

? URL

function doGet(e){
processHttpRequest(e);
}

function doPost(e){
processHttpRequest(e);
}

function processHttpRequest(e) {
var ss = SpreadsheetApp.openById(e.parameter.ssId);
var sheet = ss.getSheetByName(e.parameter.sheetName);

for(i=0; i<e.parameters.row.length; i++) {    
    var row = Number(e.parameters.row[i]);
    var col = Number(e.parameters.col[i]);
    var range = sheet.getRange(row, col);
    range.setValue(e.parameters.txt[i]);
}    
}


httpRequest.Open "POST", URL, False, логин, пароль

httpRequest.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"

CreateObject("WinHttp.WinHttpRequest.5.1")
CreateObject("MSXML2.ServerXMLHTTP")

Public Function EncodeUriComponent(str)
    Static objHtmlfile As Object
    If objHtmlfile Is Nothing Then
        Set objHtmlfile = CreateObject("htmlfile")
        objHtmlfile.parentWindow.execScript "function encode(s) {return encodeURIComponent(s)}", "jscript"
    End If
    EncodeUriComponent = objHtmlfile.parentWindow.encode(str)
End Function

function doGet(e){
...
}

function doPost(e){
...
}

function doPost(e){
processHttpRequest(e);
return HtmlService.createHtmlOutput('<b>POST Request was recieved</b>');
}

function processHttpRequest(e) {

var ss = SpreadsheetApp.openById('ID Вашей таблицы');
var sheet = ss.getSheetByName('Имя Вашего листа');

var content = e.parameter.content;

var parsedContent = JSON.parse(content);

var ResultArray = [parsedContent[0].slice()];

for (var i=1; i<parsedContent.length; i++) {
    ResultArray.push( parsedContent[i].slice() )
}


var needRows = ResultArray.length;
var needCols = ResultArray[0].length;

sheet.getRange(1, 1, needRows, needCols)
    .setValues(ResultArray)

}

Public Function ToArrJSON(rng As Range) As String
    ' Make sure there are two columns in the range
    If rng.Columns.Count < 2 Then
        ToArrJSON = CVErr(xlErrNA)
        Exit Function
    End If

    Dim dataLoop, headerLoop As Long
    ' Get the first row of the range as a header range
    Dim headerRange As Range: Set headerRange = Range(rng.Rows(1).Address)
    
    Dim colCount As Long: colCount = headerRange.Columns.Count
    
    Dim json As String: json = "["
    
    For dataLoop = 0 To rng.Rows.Count
        ' Include the first header row as well
        If dataLoop > 0 Then
            ' Start data row
            Dim rowJson As String: rowJson = "["
            
            For headerLoop = 1 To colCount
                rowJson = rowJson & """" & rng.Value2(dataLoop, headerLoop) & """"
                rowJson = rowJson & ","
            Next headerLoop
            
            ' Strip out the last comma
            rowJson = Left(rowJson, Len(rowJson) - 1)
            
            ' End data row
            json = json & rowJson & "],"
        End If
    Next
    
    ' Strip out the last comma
    json = Left(json, Len(json) - 1)
    
    json = json & "]"
    
    ToArrJSON = json
End Function



Sub sendPOST(sheetName As String, title As String, content)

Const URLgoogle As String = "https://script.google.com/macros/s/"
Const webAppId As String = "Id Скрипта - веб приложения"
    
    Dim httpRequest As Object 'MSXML2.XMLHTTP
    
    Dim URL As String
    URL = URLgoogle & webAppId
    
    Dim requestBody As Variant
    requestBody = "&content=" & EncodeUriComponent(content)
    
        
    Set httpRequest = CreateObject("MSXML2.XMLHTTP")
    httpRequest.Open "POST", URL, False
    httpRequest.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    httpRequest.Send requestBody

Set httpRequest = Nothing
End Sub