Option Explicit

Sub Macro1()
' должен сохранять ненулевые результаты формул, как значения

     Dim i&, f(), v()
     Dim firstRow As Long
     Dim firstCol As Long
     Dim nameCol As Long
     Dim lastRow As Long
     Dim Col1 As Long
     Dim Col2 As Long
     Dim Col3 As Long
     Dim Col4 As Long
      
     Sheets("Детали").Activate
     If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
      
     ' находим первую строку всей таблицы (где написано "Дата записи" + 2 строчки)
     firstRow = Sheets("Детали").Cells.Find(What:="Дата записи", After:=ActiveCell, LookIn:=xlFormulas, _
         LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
         MatchCase:=False, SearchFormat:=False).Row + 2
      
     ' находим номер первого столбца всей таблицы (где написано "Дата записи")
     firstCol = Sheets("Детали").Cells.Find(What:="Дата записи", After:=ActiveCell, LookIn:=xlFormulas, _
         LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
         MatchCase:=False, SearchFormat:=False).Column
          
     ' Находим крайнюю строку таблицы на текущий момент
     nameCol = Sheets("Детали").Cells.Find(What:="ФИО НТП", After:=ActiveCell, LookIn:=xlFormulas, _
         LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
         MatchCase:=False, SearchFormat:=False).Column 'определяем номер столбца, в котором пишутся ФИО
     lastRow = Cells(Rows.Count, nameCol).End(xlUp).Row ' присваиваем переменной значение крайней заполненной строки
      
     ' Определяю номер столбца "Куратор (назнач.)"
     Col1 = Sheets("Детали").Cells.Find(What:="Куратор (назнач.)", After:=ActiveCell, LookIn:=xlFormulas, _
         LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
         MatchCase:=False, SearchFormat:=False).Column
     ' Определяю номер столбца "Подразделение (назнач.)"
     Col2 = Sheets("Детали").Cells.Find(What:="Подразделение (назнач.)", After:=ActiveCell, LookIn:=xlFormulas, _
         LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
         MatchCase:=False, SearchFormat:=False).Column
     ' Определяю номер столбца "Склад транзит."
     Col3 = Sheets("Детали").Cells.Find(What:="Склад транзит.", After:=ActiveCell, LookIn:=xlFormulas, _
         LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
         MatchCase:=False, SearchFormat:=False).Column
     ' Определяю номер столбца "Куратор транзит."
     Col4 = Sheets("Детали").Cells.Find(What:="Куратор транзит.", After:=ActiveCell, LookIn:=xlFormulas, _
         LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
         MatchCase:=False, SearchFormat:=False).Column
      
     ' сохраняем значение формул, "как значения"
     With ThisWorkbook.Worksheets("Детали").Range(Sheets("Детали").Cells(firstRow, Col1), _
         Sheets("Детали").Cells(lastRow, Col2))
         f = .Formula
         v = .Value
         For i = 1 To UBound(v)
             If Len(v(i, 1)) Then f(i, 1) = v(i, 1)
         Next
         .Formula = f
     End With
      
End Sub

Sub Macro1()
' должен сохранять ненулевые результаты формул, как значения

     Dim i&, r&, c&, f(), v()
     Dim firstRow As Long
     Dim firstCol As Long
     Dim nameCol As Long
     Dim lastRow As Long
     Dim Col1    As Long
     Dim Col2    As Long
     Dim Col3    As Long
     Dim Col4    As Long
      
     With Sheets("Детали")
         If .FilterMode Then .ShowAllData
          
'!!! см. именованные диапазоны (Ctrl+F3)
' находим все нужные столбцы и первую строку таблицы, используя именованные диапазоны
         With .Range("Дата_записи")
             firstRow = .Row + 2 ' находим первую строку всей таблицы (где написано "Дата записи" + 2 строчки)
             firstCol = .Column  ' находим номер первого столбца всей таблицы (где написано "Дата записи")
         End With
              
         ' Находим крайнюю строку таблицы на текущий момент
         nameCol = .Range("ФИО_НТП").Column ' определяем номер столбца, в котором пишутся ФИО
         lastRow = .Cells(Rows.Count, nameCol).End(xlUp).Row ' присваиваем переменной значение крайней заполненной строки
          
         ' Определяю номер столбца "Куратор (назнач.)"
         Col1 = .Range("Куратор_назнач").Column
         ' Определяю номер столбца "Подразделение (назнач.)"
         Col2 = .Range("Подразделение").Column
         ' Определяю номер столбца "Склад транзит."
         Col3 = .Range("Склад_транзит").Column
         ' Определяю номер столбца "Куратор транзит."
         Col4 = .Range("Куратор_транзит").Column
          
         ' сохраняем значение формул, "как значения"
         With .Range(.Cells(firstRow, Col1), .Cells(lastRow, Col2))
             f = .Formula            ' сохраняем в массив формулы в выбранном диапазоне
             v = .Value              ' сохраняем в массив значения в выбранном диапазоне
             i = UBound(v, 2)        ' кол-во столбцов в выбранном диапазоне
             For r = 1 To UBound(v)  ' кол-во строк в выбранном диапазоне
                 For c = 1 To i
                     If Len(v(r, c)) Then f(r, c) = v(r, c) ' если значение ячейки НЕ пустая строка – заменяем формулу значением
             Next c, r
             .Formula = f            ' записываем измененный массив в выбранный диапазон
         End With
     End With
End Sub