Sub Макросик()
    Dim a, i&, t$

    With CreateObject("Scripting.Dictionary")
        a = Sheets("Таблица 2").ListObjects(1).DataBodyRange.Value
        For i = 1 To UBound(a)
            .Item(a(i, 1)) = a(i, 2)
        Next
        a = Sheets("Таблица 1").ListObjects(1).DataBodyRange.Value
        For i = 1 To UBound(a)
            t = Left(a(i, 1), 8)
            If .exists(t) Then a(i, 1) = .Item(t) Else a(i, 1) = Empty
        Next
        Sheets("Таблица 1").[c2].Resize(UBound(a), 1) = a
    End With
End Sub

=ИНДЕКС(KiumCells!E2:E300; ПОИСКПОЗ(C6;KiumCells!A2:A300))

=ВПР(C6;KiumCells!A:E;5;0)

Function GetNumeric(t As String)
    Dim j As Integer, l As String
    For j = 1 To Len(t)
        If IsNumeric(Mid(t, j, 1)) Then l = l & Mid(t, j, 1)
    Next j
    GetNumeric = Val(l)
End Function

Public Function ExtractNumber(s As String)
    Dim i As Integer, str As String, a$
    For i = 1 To Len(s)
        a = Mid(s, i, 1)
        If InStr(1, "1234567890,", a) Then str = str & a
    Next
    ExtractNumber = str
End Function

Sub tt()

    With ActiveSheet.Shapes("Scroll Bar 7").OLEFormat.Object
'        .Value = 2
        .Min = 5 ' <====================
        .Max = 99
        .SmallChange = 5
        .LargeChange = 10
        .LinkedCell = "$C$2"
        .Display3DShading = True
    End With
End Sub