Конкатенация с форматированием жирным шрифтом и курсивом

Question

Я пытаюсь написать код VBA для конкатенации, а также отформатировать значения одного столбца в полужирный, а другие в полужирный и курсив. Невозможно пройти через это. Пожалуйста, помогите

=CONCATENATE([@[Job Title]],CHAR(10),[@[Business Segment]],CHAR(10),[@[US Pay Band]],CHAR(10)," ",CHAR(10),"Incumbent - ",[@Name],CHAR(10)," ",CHAR(10),"Hay Points - ",[@[Final Hay Points]],CHAR(10))

здесь Название должности должно быть жирным шрифтом, а имя должно быть жирным шрифтом и курсивом

Код из комментариев:

Sub bold()

Dim r As Range, c As Range
Dim ws As Worksheet

Set ws = ActiveSheet
Set r = ws.Range("X:X")
For Each c In r 
    With c 
        .Font.bold = False 
        .Value = .Text 
        .Characters(1, InStr(.Text, vbLf) - 1).Font.bold = True
    End With
Next c 
...
End sub