Перевод чисел разделенных пробелами из шестнадцатеричной системы счисления в десятичную и наоборот

[AEBus]

Приветствую всех
В столбце A в разных ячейках написаны числа в шестнадцатеричной системе счисления, разделенные пробелами, к примеру "48e eb 1c 11 10b 8c", "4a5 0 4d 14 136 8a", "466 12c 25 14 1f8 8a" и т.д.
Нужно поочередно их перевести в десятичную систему счисления, так же разделить пробелами и написать в ячейках столбца B
А в столбце C в разных ячейках написаны числа в десятичной системе счисления, разделенные пробелами, к примеру "1189 84 102 20 440 339", "15 64 100 20 450 350", "225 300 400 10 850 20" и т.д.
Нужно поочередно их перевести в шестнадцатеричную систему счисления, так же разделить пробелами и написать в ячейках столбца D
Помогите пожалуйста это осуществить с помощью макроса VBA либо с помощью формул

[Aleksandr H.]

Sub a()
    Dim HEX() As String
    Dim DEC() As String
    Dim el
    Dim rez As String
    
    HEX = Split([a1])

    rez = ""
    For Each el In HEX
        rez = rez & " " & Application.WorksheetFunction.Hex2Dec(el)
    Next
    [b1] = rez
    DEC = Split([c1])
    rez = ""
    For Each el In DEC
        rez = rez & " " & Application.WorksheetFunction.Dec2Hex(CInt(el))
    Next
    [d1] = rez
    
End Sub

[AEBus]

Переводит числа первой ячейки столбца A в десятеричную систему счисления, заносит результат в первую ячейку столбца B, и выдает ошибку:

Run-time error '13':
Type mismatch

При нажатии кнопки Debug строчка

rez = rez & " " & Application.WorksheetFunction.Dec2Hex(CInt(el))

подсвечивается желтым

UPD:
Извиняюсь, мой косяк, пробел стоял перед числом в первой ячейке столбца C

Работает для первых ячеек каждого столбца, а как заставить работать для остальных ячеек?

[Aleksandr H.]

Циклом запускать по всех ячейках или UDF

[AEBus]

большое спасибо!