Private Sub Worksheet_Change(ByVal Target As Range)
Cells(3, 5).Value = "Автомобіль: " & Cells(3, 3).Value & " " & Cells(4, 3).Value _
     & ",  державний реєстраційний номер " & Cells(5, 3).Value
l1 = Len(Cells(4, 3).Value)
l2 = Len(Cells(5, 3).Value)
st1 = InStr(1, Cells(3, 5).Value, Cells(4, 3).Value)
st2 = InStr(1, Cells(3, 5).Value, Cells(5, 3).Value)

     Cells(3, 5).Characters(Start:=1, Length:=st1 - 1).Font.FontStyle = "обычный"
     Cells(3, 5).Characters(Start:=st1, Length:=l1).Font.FontStyle = "полужирный"
     Cells(3, 5).Characters(Start:=st1 + l1 + 1, Length:=st2 - 1).Font.FontStyle = "обычный"
     Cells(3, 5).Characters(Start:=st2, Length:=l2).Font.FontStyle = "полужирный"
End Sub

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 06.04.2012 (User)
'

'
     ActiveCell.FormulaR1C1 = _
         "Автомобіль: леговий універсал - В RAV4,  державний реєстраційний номер AB 1745 BC"
     With ActiveCell.Characters(Start:=1, Length:=34).Font
         .FontStyle = "обычный"
     End With
     With ActiveCell.Characters(Start:=35, Length:=4).Font
         .FontStyle = "полужирный"
     End With
     With ActiveCell.Characters(Start:=39, Length:=33).Font
         .FontStyle = "обычный"
     End With
     With ActiveCell.Characters(Start:=72, Length:=10).Font
         .FontStyle = "полужирный"
     End With
     Range("E6").Select
End Sub