Range("D12").Select
    Application.CommandBars("Stop Recording").Visible = False
    ActiveCell.FormulaR1C1 = "qwe2"
    With ActiveCell.Characters(Start:= 1 , Length:= 3 ).Font
        .Name = "Arial Cyr"
        .FontStyle = "обычный"
        .Size =  10 
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With ActiveCell.Characters(Start:= 4 , Length:= 1 ).Font
        .Name = "Arial Cyr"
        .FontStyle = "полужирный"
        .Size =  10 
        .Strikethrough = False
        .Superscript = False
        .Subscript = True
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    Range("D12").Select