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