Sub df()
Application.ScreenUpdating = False
Dim cell As Range, lr As Long, rng As Range, S As Long, L As Long
lr = Cells(Rows.Count, 3).End(xlUp).Row + 1
Set rng = Range("C2:C" & lr)
rng.Font.ColorIndex = xlAutomatic
'rng.Font.TintAndShade = 0
For Each cell In rng
If Not IsEmpty(cell) Then
If Len(cell) >= 3 Then
    S = Len(cell) - 2: L = 3
Else
    S = 1: L = Len(cell)
End If
    With cell.Characters(Start:=S, Length:=L).Font
        .Name = "Calibri"
        .FontStyle = "обычный"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .Color = -16776961
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
End If
Next cell
Application.ScreenUpdating = True
End Sub