Option Explicit
'====================================================================================================
Sub iFind()
Dim dic As New Dictionary
Dim rngOut As Range
Dim arr1, arr2, t!, r&

t = Timer
arr1 = Range("B4:C8").Value2

Set rngOut = Range("F13:G17")
arr2 = rngOut.Value2

    For r = 1 To UBound(arr1, 1) ' цикл по всем строкам массива "где искать, откуда брать"
        If Not dic.Exists(arr1(r, 1)) Then dic.Add arr1(r, 1), arr1(r, 2) ' если нет в словаре, то добавляем пару ключ arr1(r, 1) — значение arr1(r, 2)
    Next r

    For r = 1 To UBound(arr2, 1) ' цикл по всем строкам массива "что искать, куда вставлять"
        If dic.Exists(arr2(r, 1)) Then arr2(r, 2) = dic(arr2(r, 1)) ' если очередной ключ есть в словаре, то вставляем соответствующее ему значение
    Next r

rngOut.Value2 = arr2
MsgBox Format(Timer - t, "0.00 сек")
End Sub
'====================================================================================================

Sub t()
MsgBox _
String(12, "l") & vbTab & 1 & vbLf & _
String(12, "A") & vbTab & 1
End Sub

Option Explicit
Option Private Module
'====================================================================================================
Function PRDX_Format_TextToLen(txt, ByVal iLen&, Optional byLeft As Boolean) As String
If Len(txt) > iLen Then MsgBox "Переменная «" & txt & "» ДЛИННЕЕ (" & Len(txt) & " симв.) заданного предела длины (" & iLen & " симв.)!", vbCritical, "PRDX_Format_TextToLen": Exit Function

    If byLeft Then
        PRDX_Format_TextToLen = Space(iLen - Len(txt)) & txt
    Else
        PRDX_Format_TextToLen = txt & Space(iLen - Len(txt))
    End If
End Function
'====================================================================================================
Sub test()
Dim t1$, t2$

t1 = "Короткий текст"
t2 = "Длинный текст (длиннее короткого)"

t1 = "«" & PRDX_Format_TextToLen(t1, 50) & "»"
t2 = "«" & PRDX_Format_TextToLen(t2, 50) & "»"

Debug.Print Len(t1), t1
Debug.Print Len(t2), t2

MsgBox t1 & vbLf & t2
End Sub
'====================================================================================================