An example of a Quick & Dirty formatting. It is perfectly ok to record a macro for this kind of work. Usually they are a ‘one off’.

I have, however, separated the code blocks into logical sections. It’ll be easier to understand, and it isolates the Range on which each section is acting.

Note that every range here is Absolute.

Sub FormatSummarySheet()

    'recorded macro
    
    Range("B3:B35").Select
    Selection.NumberFormat = "General"
    Selection.Style = "Comma"
    Selection.NumberFormat = "_-* #,##0_-;-* #,##0_-;_-* -_-;_-@_-"
    
    Range("A32:A33").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    
    Range("A19").Select
    Selection.Font.Underline = xlUnderlineStyleNone
    
    Range("A3:A18").Select
    Selection.Font.Bold = False
    Selection.Font.Bold = True
    
    Rows("11:11").Select
    Selection.RowHeight = 14.3
    
    Range("A35").Select
    Selection.Font.Bold = True
    With Selection
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    
    Range("A35:B35").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlDouble
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThick
    End With
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    
    Range("B35").Select
    Selection.Font.Bold = True
    
    Range("E23").Select
    
End Sub