Sub sendGET()    
    Dim httpRequest As Object 'MSXML2.XMLHTTP
    Dim URL As String
    Dim ssId As String
    Dim sheetName As String
    
    ssId = "19foyskMCrGT8L-XLaKrzqPwrxNFOXbPp1tdRJvkqwLA" ' Id страницы 
    sheetName = "1" название страницы

    URL = "https://script.google.com/macros/s/" & webAppId & "/exec" _ ' webAppId - развернутое приложение
        & "?ssId=" & ssId _
        & "&sheetName=" & sheetName _
        & "&row=1&col=1&txt=111" _
        & "&row=1&col=2&txt=111" _
        & "&row=1&col=3&txt=111"
    
    Set httpRequest = CreateObject("MSXML2.XMLHTTP")  

    httpRequest.Open "POST", URL, False

    httpRequest.Send (URL)

Debug.Print httpRequest.Status
Debug.Print httpRequest.responseText
    Set httpRequest = Nothing
End Sub