Sub nachdatumsort()
    ActiveWorkbook.Worksheets("blatt").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("blatt").AutoFilter.Sort.SortFields.Add2 Key:= _
        Range("T5:T9110"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("blatt").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

If Len(arrInp(r1, 3)) > 0 And VarType(arrInp(r1, 3)) = 5 Then

If Len(arrInp(r1, 3))> 0 Then

If Len(arrInp(r1, 3)) > 0 And IsNumeric(Len(arrInp(r1, 3))) Then

=IFERROR(INDEX('t1'!B:B,SMALL(IF(0<'t1'!$E$4:$E$200,ROW($E$4:$E$200)),ROW(A1))),"")

=ЕСЛИОШИБКА(ИНДЕКС('t1'!B:B;НАИМЕНЬШИЙ(ЕСЛИ(0<'t1'!$E$4:$E$200;СТРОКА($E$4:$E$200));СТРОКА(A1)));"")

БМВ Мое мнение, упал уровень знаний выпускников школ после перехода на болонскую систему. Надо возвращаться к советской системе образования. Мне кажется, что «двоешники» в наше время знали больше, чем «хорошисты» сейчас. Иногда по телевизору показывали опрос на улице. 

Function request(pAdress As String, pBasicAuth As String) As String
    Dim objHTTP As Object
    Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
    With objHTTP
        .Open "GET", pAdress, False
        .SetRequestHeader "Authorization", "Bearer" + pBasicAuth
        .SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
        .SetRequestHeader "Content-type", "application/x-www-form-urlencoded"
        .Send ("keyword=php")
    End With
    request = objHTTP.ResponseText
End Function

Sub Info()

Cells(1, 1).Value = request("https://192.168.245.11:90/api/get/data?elm=STATE", " edXXXXXXXXXXb4f24309a625618c85650a55b934fd2b7b4da710351")


End Sub

function lockCells() {
  var sheet = SpreadsheetApp.getActiveSpreadsheet().getSheetByName("table"); // get the sheet by name
  var range = sheet.getRange("A1:B10"); // get the range of cells you want to protect
  var protection = range.protect().setDescription("Locked cells"); // protect the range and add a description
  protection.removeEditors(protection.getEditors()); // remove all editors except yourself
}