Private Sub КН_Выбор_формы_Click()
    ОКНО_ВВОДА_ДАННЫХ.Show
End Sub

let
    f=each [a=[Часов],b=if a{0} is text then a{0} else List.Sum(a)][b],
    from = Excel.CurrentWorkbook(){[Name="Работы"]}[Content],
    tr = Table.TransformColumnTypes(from,{{"Дата", type text}}),
    tr1 = Table.TransformColumns(tr, {{"Дата", each Text.BeforeDelimiter(_, " "), type text}}),
    piv = Table.Pivot(Table.Group(tr1,{"Дата","ФИО"},{"a",f}),List.Distinct(tr1[Дата]),"Дата","a"),
    to = Table.AddColumn(piv,"Итог",(x)=>List.Sum(List.Select(Record.ToList(x),(x)=>x is number)))
in
    to 

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Dim wsData As Worksheet
    Dim wsPivot As Worksheet
    Dim pt As PivotTable
    Dim pi As PivotItem
    Dim cell As Range
    Dim lookupValue As String
    
    ' Укажите имя листа с исходными данными
    Set wsData = ThisWorkbook.Sheets("ИмяВашегоЛистаСДанными")
    
    ' Укажите имя листа со сводной таблицей
    Set wsPivot = ThisWorkbook.Sheets("ИмяВашегоЛистаСводнойТаблицы")
    
    ' Укажите имя сводной таблицы
    Set pt = wsPivot.PivotTables("ИмяВашейСводнойТаблицы")
    
    ' Перебираем все элементы сводной таблицы
    For Each pi In pt.PivotFields("ИмяВашегоПоля").PivotItems
        ' Проверяем значение в сводной таблице
        If pi.DataRange.Cells(1, 1).Value = 0 Then
            ' Ищем соответствующую букву в исходных данных
            lookupValue = wsData.Range("A1:A100").Find(pi.Name).Offset(0, 1).Value ' Замените диапазон на нужный
            pi.DataRange.Cells(1, 1).Value = lookupValue ' Заменяем ноль на букву
        End If
    Next pi
End Sub

=СЖПРОБЕЛЫ("УГОЛ МЕДНЫЙ 90° "&ТЕКСТ(A2; "#\ ??/??")&" ("&B2&" ММ) ODF")

=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ОБЪЕДИНИТЬ("";ИСТИНА;"УГОЛ МЕДНЫЙ 90° ";ТЕКСТ(A1; "#" & СИМВОЛ(160) & "??/??");" (";B1;" ММ) ODF");СИМВОЛ(160);" "))

=СЖПРОБЕЛЫ(ОБЪЕДИНИТЬ("";ИСТИНА;"УГОЛ МЕДНЫЙ 90° ";ТЕКСТ(A1; "#"" ""??/??");" (";B1;" ММ) ODF"))

=ОБЪЕДИНИТЬ("";ИСТИНА;"УГОЛ МЕДНЫЙ 90°";ТЕКСТ(A1;"??/??");" (";B1;" ММ)";" ODF")

=СЖПРОБЕЛЫ(ОБЪЕДИНИТЬ("";ИСТИНА;"УГОЛ МЕДНЫЙ 90° ";ТЕКСТ(A1; "#" & СИМВОЛ(160) & "??/??");" (";B1;" ММ) ODF"))

form2 = Table.TransformColumnTypes(delerr,{{"Штрихкод.1", Int64.Type},

Range("A1").Select