Sub Гениральный_директор()
    Range("A7").Clear
    Range("A7").FormulaR1C1 = "Гениральный директор"
    With Range("A7").Characters(Start:= 1 , Length:= 32 ).Font
        .Name = "Arial Cyr"
        .FontStyle = "полужирный"
        .Size =  10 
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex =  5 
    End With
    Range("A7").Font.ColorIndex =  5 
    Range("A7").Interior.ColorIndex =  15 
    Range("A10:F24").ClearContents
    
    Sheets("Основная Таблица").Range("B35:B40").Copy _
     Destination:=Sheets("Запрос пользователя").Range("A10")
    
    Sheets("Основная Таблица").Range("D35:H40").Copy
    Sheets("Запрос пользователя").Range("B10:F15").PasteSpecial _
     Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A7").Select
End Sub