Sub Получить_слова()
    Dim arrSrc(), arrRes(), var, lr As Long, i As Long
    
    lr = Cells(Rows.Count, "B").End(xlUp).Row
    arrSrc() = Range("B2:B" & lr).Value
    ReDim arrRes(1 To UBound(arrSrc), 1 To 2)
    For i = 1 To UBound(arrSrc)
        var = arrSrc(i, 1)
        var = Replace(var, ",", " ")
        var = WorksheetFunction.Trim(var)
        var = Split(var, " ")
        arrRes(i, 1) = var(0)
        arrRes(i, 2) = var(2)
    Next i
    Range("K2:L" & lr).Value = arrRes()
End Sub

Sub Получить_слова()
    Dim arrSrc(), arrRes(), var, lr As Long, i As Long 'объявляем переменные. Понял только про последние две переменные (целые длинные Long)

    lr = Cells(Rows.Count, "B").End(xlUp).Row 'определяем последнюю строку заполенную в столбце B
    arrSrc() = Range("B2:B" & lr).Value
    ReDim arrRes(1 To UBound(arrSrc), 1 To 2)
    For i = 1 To UBound(arrSrc)
        var = arrSrc(i, 1)    'получаем в переменную arrSrc текст из определенной циклом ячейки столбца B
        var = Replace(var, ",", " ")  'переменная var = тексту определенной циклом ячейки столбца B
        var = WorksheetFunction.Trim(var) 'не понял, что делает эта строка кода. Вроде должны убиратьс пробелы
        var = Split(var, " ") 'разбивает строку на массис с разделителем пробел (прочитал в инете, но слабо понимаю это.Массивы для меня пока ни как.
        arrRes(i, 1) = var(0) 'получаем первое слово
        arrRes(i, 2) = var(2) 'получаем третье слово
    Next i
    Range("K2:L" & lr).Value = arrRes() 'мы записываем данные массива сразу одновременно в диапазон "K2:L"?

End Sub

Sub Получить_слова()
    Dim var
    
    var = Range("B2").Value
    'замена запятых на пробелы
    var = Replace(var, ",", " ")
    'удаление двойных пробелов
    var = WorksheetFunction.Trim(var)
    'разбивка на части по пробелам
    var = Split(var, " ")
    Range("K2").Value = var(0)
    Range("L2").Value = var(2)
End Sub