Sub tree()
    ' Make square cells
    Cells.Select
    Selection.ColumnWidth = 2.14
    Range("A1").Select
    ActiveWindow.DisplayGridlines = False
    ' Blank line border
    ' Max width 15 including 1 cell border
    ' 1G
    Range("H2").Select
    With Selection.Interior
     .Pattern = xlSolid
     .PatternColorIndex = xlAutomatic
     .Color = 5287936
     .TintAndShade = 0
     .PatternTintAndShade = 0
    End With
    Range("A1").Select
    ' 3 G
    Range("G3:I3").Select
    With Selection.Interior
     .Pattern = xlSolid
     .PatternColorIndex = xlAutomatic
     .Color = 5287936
     .TintAndShade = 0
     .PatternTintAndShade = 0
    End With
    Range("A1").Select
    ' 5G
    Range("F4:J4").Select
    With Selection.Interior
     .Pattern = xlSolid
     .PatternColorIndex = xlAutomatic
     .Color = 5287936
     .TintAndShade = 0
     .PatternTintAndShade = 0
    End With
    Range("A1").Select
    ' 7G
    Range("E5:K5").Select
    With Selection.Interior
     .Pattern = xlSolid
     .PatternColorIndex = xlAutomatic
     .Color = 5287936
     .TintAndShade = 0
     .PatternTintAndShade = 0
    End With
    Range("A1").Select
    ' 9G
    Range("D6:L6").Select
    With Selection.Interior
     .Pattern = xlSolid
     .PatternColorIndex = xlAutomatic
     .Color = 5287936
     .TintAndShade = 0
     .PatternTintAndShade = 0
    End With
    Range("A1").Select
    ' 5G
    Range("F7:J7").Select
    With Selection.Interior
     .Pattern = xlSolid
     .PatternColorIndex = xlAutomatic
     .Color = 5287936
     .TintAndShade = 0
     .PatternTintAndShade = 0
    End With
    Range("A1").Select
    ' 7G
    Range("E8:K8").Select
    With Selection.Interior
     .Pattern = xlSolid
     .PatternColorIndex = xlAutomatic
     .Color = 5287936
     .TintAndShade = 0
     .PatternTintAndShade = 0
    End With
    Range("A1").Select
    ' 9G
    Range("D9:L9").Select
    With Selection.Interior
     .Pattern = xlSolid
     .PatternColorIndex = xlAutomatic
     .Color = 5287936
     .TintAndShade = 0
     .PatternTintAndShade = 0
    End With
    Range("A1").Select
    ' 11G
    Range("C10:M10").Select
    With Selection.Interior
     .Pattern = xlSolid
     .PatternColorIndex = xlAutomatic
     .Color = 5287936
     .TintAndShade = 0
     .PatternTintAndShade = 0
    End With
    Range("A1").Select
    ' 11G
    Range("C11:M11").Select
    With Selection.Interior
     .Pattern = xlSolid
     .PatternColorIndex = xlAutomatic
     .Color = 5287936
     .TintAndShade = 0
     .PatternTintAndShade = 0
    End With
    Range("A1").Select
    ' 7G
    Range("E12:K12").Select
    With Selection.Interior
     .Pattern = xlSolid
     .PatternColorIndex = xlAutomatic
     .Color = 5287936
     .TintAndShade = 0
     .PatternTintAndShade = 0
    End With
    Range("A1").Select
    ' 9G
    Range("D13:L13").Select
    With Selection.Interior
     .Pattern = xlSolid
     .PatternColorIndex = xlAutomatic
     .Color = 5287936
     .TintAndShade = 0
     .PatternTintAndShade = 0
    End With
    Range("A1").Select
    ' 11G
    Range("C14:M14").Select
    With Selection.Interior
     .Pattern = xlSolid
     .PatternColorIndex = xlAutomatic
     .Color = 5287936
     .TintAndShade = 0
     .PatternTintAndShade = 0
    End With
    Range("A1").Select
    ' 13G
    Range("B15:N15").Select
    With Selection.Interior
     .Pattern = xlSolid
     .PatternColorIndex = xlAutomatic
     .Color = 5287936
     .TintAndShade = 0
     .PatternTintAndShade = 0
   End With
    Range("A1").Select
    ' 3Bx4
    Range("G16:I19").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = -0.249946592608417
        .PatternTintAndShade = 0
    End With
    Range("A1").Select
    Sheets("Sheet1").Select
End Sub