Sub Name()
Dim a As Integer, b As Integer
    arr1 = Array("ОТИ-4", "ОТИ-18", "ОТИ-19", "ОТИ-22", "ОТИ-52", "ОТИ-53", "ОТИ-57", "ОТИ-60", "ОТИ-65", _
        "ОТИ-80", "ОТИ-118", "ОТИ-144", "ОТИ-192", "ОТИ-451", "ОТИ-491", "ОТИ-510", "ОТИ-810", "ОТИ-1012", "ОТИ-1244")
    arr2 = Array("По охране труда контролёров БТК", "По охране труда сверловщика", "По охране труда зубошлифовщика", "По охране труда протяжчика", "По охране труда шлифовщиков", _
        "По охране труда при эскплуатации абразивного инструмента", "По охране труда для фрезеровщика", "По охране труда для грузчиков, и лиц, выполняющих погрузочно-разгрузочные и складские работы", _
        "По охране труда для стропальщиков", "По охране труда для лиц, занятых управлением грузоподъёмными кранами с пола или стационарного пульта", "По охране труда при работе на координатно-измерительных машинах (КИМ)", _
        "По охране труда при работе на долбёжных станках", "По охране труда зуборезчика", "По охране труда станочников", "По охране труда для машинистов моечных машин", "По охране труда для лиц, занятых обработкой металла с использованием смазочно-охлаждающих жидкостей", _
        "По охране труда при работе с ручным слесарным инструментом", "По охране труда для дефектоскопистов по магнитному и ультразвуковому контролю", "По охране труда для операторов станков с программным управлением")
    For a = 2 To 30
        For b = LBound(arr1) To UBound(arr1)
            If Cells(a, 1) = arr1(b) Then
                Worksheets("Список инструкций").Cells(a, 4) = arr2(b)
                Exit For
            End If
        Next
    Next
End Sub

Sub Name2()
    Dim a As Long, b As Long
    Dim arr1 As Variant, arr2 As Variant
    
    arr1 = Array("ОТИ-4", "ОТИ-18", "ОТИ-19", "ОТИ-22", "ОТИ-52", "ОТИ-53", "ОТИ-57", "ОТИ-60", "ОТИ-65", _
        "ОТИ-80", "ОТИ-118", "ОТИ-144", "ОТИ-192", "ОТИ-451", "ОТИ-491", "ОТИ-510", "ОТИ-810", "ОТИ-1012", "ОТИ-1244")
        
    arr2 = Array("По охране труда контролёров БТК", "По охране труда сверловщика", "По охране труда зубошлифовщика", "По охране труда протяжчика", "По охране труда шлифовщиков", _
        "По охране труда при эскплуатации абразивного инструмента", "По охране труда для фрезеровщика", "По охране труда для грузчиков, и лиц, выполняющих погрузочно-разгрузочные и складские работы", _
        "По охране труда для стропальщиков", "По охране труда для лиц, занятых управлением грузоподъёмными кранами с пола или стационарного пульта", "По охране труда при работе на координатно-измерительных машинах (КИМ)", _
        "По охране труда при работе на долбёжных станках", "По охране труда зуборезчика", "По охране труда станочников", "По охране труда для машинистов моечных машин", "По охране труда для лиц, занятых обработкой металла с использованием смазочно-охлаждающих жидкостей", _
        "По охране труда при работе с ручным слесарным инструментом", "По охране труда для дефектоскопистов по магнитному и ультразвуковому контролю", "По охране труда для операторов станков с программным управлением")
    
    With Worksheets("Список инструкций")
        For a = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row '<- вот тут мы вычисляем макросом номер последней строки в столбце 1 (он же столбец А)
            For b = LBound(arr1) To UBound(arr1)
                If Cells(a, 1) = arr1(b) Then
                    .Cells(a, 4) = arr2(b)
                    Exit For
                End If
            Next
        Next
    End With
End Sub

Sub Name2()
    Dim Dict As Object, arr1 As Variant, arr2 As Variant, arrOut As Variant, arrTemp As Variant, i As Long
    
    arr1 = Array("ОТИ-4", "ОТИ-18", "ОТИ-19", "ОТИ-22", "ОТИ-52", "ОТИ-53", "ОТИ-57", "ОТИ-60", "ОТИ-65", _
        "ОТИ-80", "ОТИ-118", "ОТИ-144", "ОТИ-192", "ОТИ-451", "ОТИ-491", "ОТИ-510", "ОТИ-810", "ОТИ-1012", "ОТИ-1244")
         
    arr2 = Array("По охране труда контролёров БТК", "По охране труда сверловщика", "По охране труда зубошлифовщика", "По охране труда протяжчика", "По охране труда шлифовщиков", _
        "По охране труда при эскплуатации абразивного инструмента", "По охране труда для фрезеровщика", "По охране труда для грузчиков, и лиц, выполняющих погрузочно-разгрузочные и складские работы", _
        "По охране труда для стропальщиков", "По охране труда для лиц, занятых управлением грузоподъёмными кранами с пола или стационарного пульта", "По охране труда при работе на координатно-измерительных машинах (КИМ)", _
        "По охране труда при работе на долбёжных станках", "По охране труда зуборезчика", "По охране труда станочников", "По охране труда для машинистов моечных машин", "По охране труда для лиц, занятых обработкой металла с использованием смазочно-охлаждающих жидкостей", _
        "По охране труда при работе с ручным слесарным инструментом", "По охране труда для дефектоскопистов по магнитному и ультразвуковому контролю", "По охране труда для операторов станков с программным управлением")

    If UBound(arr1) <> UBound(arr2) Then
        MsgBox "Массивы данных не совпадают по размеру!", vbExclamation, "Внимание"
        Exit Sub
    End If

    With Worksheets("Список инструкций")
        arrTemp = .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
    End With
    
    Set Dict = CreateObject("Scripting.Dictionary")
    Dict.comparemode = 1
    For i = LBound(arr1) To UBound(arr2)
        Dict.Add arr1(i), arr2(i)
    Next i
    
    ReDim arrOut(1 To UBound(arr1), 1 To 1)
    For i = LBound(arrTemp) To UBound(arrTemp)
        arrOut(i, 1) = Dict(arrTemp(i, 1))
    Next i
    
    With Worksheets("Список инструкций")
        .Range("B2").Resize(UBound(arrOut), 1).Value = arrOut
    End With
End Sub