=ВПР(B3&" (*";$D$3:$D$37;1;0)

ws.Cells(rowNum, "C").Value & ws.Range("BB1").Value

ActiveCell.Value

ActiveCell.Offset(0, 7).Value

Cells(ActiveCell.Row,"L").Value

Private Sub TextBox1_Change()
ActiveCell.Offset(0, 10).Value = Val(Replace(Me.TextBox1, ",", "."))
ActiveCell.Offset(0, 10).NumberFormat = "0.0"
End Sub

Private Sub UserForm_Initialize()
Me.TextBox1 = ActiveCell.Offset(0, 10).Text
End Sub

Function GetLevel(rc as range)
GetLevel = rc.Entirerow.Outlinelevel
End function

=GetLevel(A4)

For Each w In arrWB
            Set wb = Workbooks.Open(w)  ' Этот метод копирует данные в книги находящиеся по пути с главной
            wb.Worksheets("Информация_ИЛ").Cells.Clear          
            ThisWorkbook.Worksheets("Информация_ИЛ").Cells.Copy 'копируем все данные с активного листа
            'вставляем только значения и форматы
            wb.Worksheets("Информация_ИЛ").Cells(1, 1).PasteSpecial xlPasteValues
            wb.Worksheets("Информация_ИЛ").Cells(1, 1).PasteSpecial xlPasteFormats
            Application.CutCopyMode = False
            wb.Close (True)
        Next w

For Each w In arrWB
   
            Set wb = Workbooks.Open(w)  ' Этот метод копирует данные в книги находящиеся по пути с главной
            ThisWorkbook.Worksheets("Средства измерений").Cells.Copy'копируем все данные с активного листа
            'вставляем только значения и форматы
            wb.Worksheets("Средства измерений").Cells(1,1).PasteSpecial xlPasteValues
            wb.Worksheets("Средства измерений").Cells(1,1).PasteSpecial xlPasteFormats
            Application.CutCopyMode = False
            wb.Close (True)
        Next w