=СЖПРОБЕЛЫ(ПРАВСИМВ(ПОДСТАВИТЬ(A5;" ";ПОВТОР(" ";50));20))

Sub Дрель()
    Dim d As Object
    Set d = CreateObject("Scripting.Dictionary")
    d.CompareMode = 1
    d.Add "Makita", 0
    d.Add "Champion", 0
    d.Add "Bosch", 0
    d.Add "DeWalt ", 0
    
    Dim y As Long
    y = Cells(Rows.Count, 1).End(xlUp).Row
    If y = 1 Then y = 2
    Dim a As Variant
    Dim b As Variant
    a = Cells(1, 1).Resize(y)
    b = Cells(1, 2).Resize(y)
    
    Dim c As Variant
    Dim v As Variant
    Dim x As Long
    Dim s As String
    
    For y = 1 To UBound(a, 1)
        For Each v In d.keys
            x = InStr(LCase(a(y, 1)), LCase(v))
            If x > 0 Then
                s = Mid(a(y, 1), x)
                c = Split(s)
                If UBound(c) > 0 Then b(y, 1) = c(1)
            End If
        Next
    Next
    Cells(1, 2).Resize(UBound(b, 1)) = b
End Sub