module6

Option Explicit

Sub Macro()
'
' Macro Macro
'

'
    Range("A1:J10").Select
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "1,1"
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "1,2"
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "1,3"
    Range("E2").Select
    ActiveCell.FormulaR1C1 = "1,4"
    Range("F2").Select
    ActiveCell.FormulaR1C1 = "1,5"
    Range("G2").Select
    ActiveCell.FormulaR1C1 = "1,6"
    Range("H2").Select
    ActiveCell.FormulaR1C1 = "1,7"
    Range("I2").Select
    ActiveCell.FormulaR1C1 = "1,8"
    Range("B3").Select
    ActiveCell.FormulaR1C1 = "2,1"
    Range("C3").Select
    ActiveCell.FormulaR1C1 = "2,2"
    Range("D3").Select
    ActiveCell.FormulaR1C1 = "2,3"
    Range("E3").Select
    ActiveCell.FormulaR1C1 = "2,4"
    Range("F3").Select
    ActiveCell.FormulaR1C1 = "2,5"
    Range("G3").Select
    ActiveCell.FormulaR1C1 = "2,6"
    Range("H3").Select
    ActiveCell.FormulaR1C1 = "2,7"
    Range("I3").Select
    ActiveCell.FormulaR1C1 = "2,8"
    Range("B4").Select
    ActiveCell.FormulaR1C1 = "3,1"
    Range("C4").Select
    ActiveCell.FormulaR1C1 = "3,2"
    Range("D4").Select
    ActiveCell.FormulaR1C1 = "3,3"
    Range("E4").Select
    ActiveCell.FormulaR1C1 = "3,4"
    Range("F4").Select
    ActiveCell.FormulaR1C1 = "3,5"
    Range("G4").Select
    ActiveCell.FormulaR1C1 = "3,6"
    Range("H4").Select
    ActiveCell.FormulaR1C1 = "3,7"
    Range("I4").Select
    ActiveCell.FormulaR1C1 = "3,8"
    Range("B5").Select
    ActiveCell.FormulaR1C1 = "4,1"
    Range("C5").Select
    ActiveCell.FormulaR1C1 = "4,2"
    Range("D5").Select
    ActiveCell.FormulaR1C1 = "4,3"
    Range("E5").Select
    ActiveCell.FormulaR1C1 = "4,4"
    Range("F5").Select
    ActiveCell.FormulaR1C1 = "4,5"
    Range("G5").Select
    ActiveCell.FormulaR1C1 = "4,6"
    Range("H5").Select
    ActiveCell.FormulaR1C1 = "4,7"
    Range("I5").Select
    ActiveCell.FormulaR1C1 = "4,8"
    Range("B6").Select
    ActiveCell.FormulaR1C1 = "5,1"
    Range("C6").Select
    ActiveCell.FormulaR1C1 = "5,2"
    Range("D6").Select
    ActiveCell.FormulaR1C1 = "5,3"
    Range("E6").Select
    ActiveCell.FormulaR1C1 = "5,4"
    Range("F6").Select
    ActiveCell.FormulaR1C1 = "5,5"
    Range("G6").Select
    ActiveCell.FormulaR1C1 = "5,6"
    Range("H6").Select
    ActiveCell.FormulaR1C1 = "5,7"
    Range("I6").Select
    ActiveCell.FormulaR1C1 = "5,8"
    Range("B7").Select
    ActiveCell.FormulaR1C1 = "6,1"
    Range("C7").Select
    ActiveCell.FormulaR1C1 = "6,2"
    Range("D7").Select
    ActiveCell.FormulaR1C1 = "6,3"
    Range("E7").Select
    ActiveCell.FormulaR1C1 = "6,4"
    Range("F7").Select
    ActiveCell.FormulaR1C1 = "6,5"
    Range("G7").Select
    ActiveCell.FormulaR1C1 = "6,6"
    Range("H7").Select
    ActiveCell.FormulaR1C1 = "6,7"
    Range("I7").Select
    ActiveCell.FormulaR1C1 = "6,8"
    Range("B8").Select
    ActiveCell.FormulaR1C1 = "7,1"
    Range("C8").Select
    ActiveCell.FormulaR1C1 = "7,2"
    Range("D8").Select
    ActiveCell.FormulaR1C1 = "7,3"
    Range("E8").Select
    ActiveCell.FormulaR1C1 = "7,4"
    Range("F8").Select
    ActiveCell.FormulaR1C1 = "7,5"
    Range("G8").Select
    ActiveCell.FormulaR1C1 = "7,6"
    Range("H8").Select
    ActiveCell.FormulaR1C1 = "7,7"
    Range("I8").Select
    ActiveCell.FormulaR1C1 = "7,8"
    Range("B9").Select
    ActiveCell.FormulaR1C1 = "8,1"
    Range("C9").Select
    ActiveCell.FormulaR1C1 = "8,2"
    Range("D9").Select
    ActiveCell.FormulaR1C1 = "8,3"
    Range("E9").Select
    ActiveCell.FormulaR1C1 = "8,4"
    Range("F9").Select
    ActiveCell.FormulaR1C1 = "8,5"
    Range("G9").Select
    ActiveCell.FormulaR1C1 = "8,6"
    Range("H9").Select
    ActiveCell.FormulaR1C1 = "8,7"
    Range("I9").Select
    ActiveCell.FormulaR1C1 = "8,8"
    Range("B2:I9").Select
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
End Sub