Sub FillDatesAndSaveValues()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("БАЗА") ' Укажите имя вашего листа, если оно другое

    Dim lastRow As Long
    Dim i As Long
    Dim columnIndex As Variant
    Dim selectedValue As String

    ' Определяем последнюю строку в столбце L
    lastRow = ws.Cells(ws.Rows.Count, "L").End(xlUp).Row

    ' Цикл по всем строкам
    For i = 2 To lastRow ' Предполагаем, что в первой строке заголовки
        ' Получаем значение из столбца N
        selectedValue = ws.Cells(i, "N").Value

        ' Находим соответствующий столбец в диапазоне S1:AC1
        columnIndex = Application.Match(selectedValue, ws.Range("S1:AC1"), 0)

        If Not IsError(columnIndex) Then
            ' Если мы нашли совпадение, заполняем ячейки формулами
            With ws
                .Cells(i, "S").Formula = "=IFERROR(L" & i & "-54+14,"""")"
                .Cells(i, "T").Formula = "=IFERROR(L" & i & "-54+14,"""")"
                .Cells(i, "U").Formula = "=IFERROR(T" & i & "+7,"""")"
                .Cells(i, "V").Formula = "=IFERROR(U" & i & "+1,"""")"
                .Cells(i, "W").Formula = "=IFERROR(V" & i & "+7,"""")"
                .Cells(i, "X").Formula = "=IFERROR(W" & i & "+3,"""")"
                .Cells(i, "Y").Formula = "=IFERROR(X" & i & "+2,"""")"
                .Cells(i, "Z").Formula = "=IFERROR(Y" & i & "+2,"""")"
                .Cells(i, "AA").Formula = "=IFERROR(Z" & i & "+2,"""")"
                .Cells(i, "AB").Formula = "=IFERROR(Z" & i & "+2,"""")"
                .Cells(i, "AC").Formula = "=IFERROR(AB" & i & "+1,"""")"

                ' Вставляем дату СЕГОДНЯ() в соответствующий столбец
                .Cells(i, columnIndex + 18).Value = Date ' Сдвиг на 18, так как S находится в 19 столбце

                ' Сохраняем предыдущие значения до выбранного столбца как значения
                Dim j As Long
                For j = 19 To (columnIndex + 18) - 1 ' От S(19) до выбранного столбца
                    .Cells(i, j).Value = .Cells(i, j).Value
                Next j
            End With
        End If
    Next i

    MsgBox "Заполнение завершено!", vbInformation
End Sub

function addnewentries() {

 var sh = SpreadsheetApp.openByUrl('https://docs.google.com/spreadsheets/d/1_FBjiv5JZyKf9OQ2qF2PVJIsRN7ldh6FjBckCVza-Ag/edit?gid=0#gid=0').getSheetByName('База')
 var range = sh.getDataRange();//смещение не требуется
 var data = range.getValues();
 var ts = SpreadsheetApp.openByUrl('https://docs.google.com/spreadsheets/d/1_FBjiv5JZyKf9OQ2qF2PVJIsRN7ldh6FjBckCVza-Ag/edit?gid=0#gid=0').getSheetByName('план');//пропущенная точка с запятой


var znach = ["TRUE"]
 var col = 2

{sh.getRange("B5:G").copyTo(ts.getRange(5, col, 2, 6), {contentsOnly:true})
    
    col+=3
  }



}