hmm, I figured you’d at least try to throw some code up here before asking, but nope 😢
Sub Program()
' Kyle Johnson2 for the forum
'
www.ic.ims.com' Keyboard Shortcut: Ctrl+Shift+K
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "rb"
Range("B1").Select
ActiveCell.FormulaR1C1 = "student name"
Range("C1").Select
ActiveCell.FormulaR1C1 = "points"
Range("D1").Select
ActiveCell.FormulaR1C1 = "grade"
Range("F1").Select
ActiveCell.FormulaR1C1 = "0"
Range("F2").Select
ActiveCell.FormulaR1C1 = "12"
Range("F3").Select
ActiveCell.FormulaR1C1 = "13"
Range("F4").Select
ActiveCell.FormulaR1C1 = "16"
Range("F5").Select
ActiveCell.FormulaR1C1 = "19"
Range("F6").Select
ActiveCell.FormulaR1C1 = "22"
Range("G1").Select
ActiveCell.FormulaR1C1 = "1"
Range("G2").Select
ActiveCell.FormulaR1C1 = "1"
Range("G3").Select
ActiveCell.FormulaR1C1 = "2"
Range("G4").Select
ActiveCell.FormulaR1C1 = "3"
Range("G5").Select
ActiveCell.FormulaR1C1 = "4"
Range("G6").Select
ActiveCell.FormulaR1C1 = "5"
Range("J1").Select
ActiveCell.FormulaR1C1 = "2"
Range("K1").Select
ActiveCell.FormulaR1C1 = "3"
Range("L1").Select
ActiveCell.FormulaR1C1 = "4"
Range("M1").Select
ActiveCell.FormulaR1C1 = "5"
Range("J1:M2").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Range("J1:M1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("A1:D1").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Range("A2").Select
ActiveCell.FormulaR1C1 = "1"
Range("A3").Select
ActiveCell.FormulaR1C1 = "2"
Range("A2:A3").Select
Selection.AutoFill Destination : = range("A2:A30"), Type:=xlFillDefault
Range("A2:A30").Select
Range("B2").Select
ActiveCell.FormulaR1C1 = "a"
Range("B3").Select
ActiveCell.FormulaR1C1 = "b"
Range("B4").Select
ActiveCell.FormulaR1C1 = "c"
Range("B5").Select
ActiveCell.FormulaR1C1 = "d"
Range("B6").Select
ActiveCell.FormulaR1C1 = "e"
Range("B7").Select
ActiveCell.FormulaR1C1 = "f"
Range("B8").Select
ActiveCell.FormulaR1C1 = "g"
Range("B9").Select
ActiveCell.FormulaR1C1 = "h"
Range("B10").Select
ActiveCell.FormulaR1C1 = "i"
Range("B11").Select
ActiveCell.FormulaR1C1 = "j"
Range("B12").Select
ActiveCell.FormulaR1C1 = "k"
Range("B13").Select
ActiveCell.FormulaR1C1 = "l"
Range("B14").Select
ActiveCell.FormulaR1C1 = "m"
Range("B15").Select
ActiveCell.FormulaR1C1 = "n"
Range("B16").Select
ActiveCell.FormulaR1C1 = "o"
Range("B17").Select
ActiveCell.FormulaR1C1 = "p"
Range("B18").Select
ActiveCell.FormulaR1C1 = "q"
Range("B19").Select
ActiveCell.FormulaR1C1 = "r"
Range("B20").Select
ActiveCell.FormulaR1C1 = "s"
Range("B21").Select
ActiveCell.FormulaR1C1 = "t"
Range("B22").Select
ActiveCell.FormulaR1C1 = "u"
Range("B23").Select
ActiveCell.FormulaR1C1 = "v"
Range("B24").Select
ActiveCell.FormulaR1C1 = "z"
Range("B25").Select
ActiveCell.FormulaR1C1 = "aa"
Range("B26").Select
ActiveCell.FormulaR1C1 = "bb"
Range("B27").Select
ActiveCell.FormulaR1C1 = "cc"
Range("B28").Select
ActiveCell.FormulaR1C1 = "dd"
Range("B29").Select
ActiveCell.FormulaR1C1 = "ee"
Range("B30").Select
ActiveCell.FormulaR1C1 = "ff"
Range("B31").Select
ActiveWindow.SmallScroll down : = -18 range
Range("C2").Select
ActiveCell.FormulaR1C1 = "15"
Range("C3").Select
ActiveCell.FormulaR1C1 = "18"
Range("C4").Select
ActiveCell.FormulaR1C1 = "11"
Range("C5").Select
ActiveCell.FormulaR1C1 = "24"
Range("C6").Select
ActiveCell.FormulaR1C1 = "16"
Range("C7").Select
ActiveCell.FormulaR1C1 = "10"
Range("C8").Select
ActiveCell.FormulaR1C1 = "8"
Range("C9").Select
ActiveCell.FormulaR1C1 = "15"
Range("C10").Select
ActiveCell.FormulaR1C1 = "19"
Range("C11").Select
ActiveCell.FormulaR1C1 = "17"
Range("C12").Select
ActiveCell.FormulaR1C1 = "13"
Range("C13").Select
ActiveCell.FormulaR1C1 = "20"
Range("C14").Select
ActiveCell.FormulaR1C1 = "16"
Range("C15").Select
ActiveCell.FormulaR1C1 = "21"
Range("C16").Select
ActiveCell.FormulaR1C1 = "14"
Range("C17").Select
ActiveCell.FormulaR1C1 = "18"
Range("C18").Select
ActiveCell.FormulaR1C1 = "7"
Range("C19").Select
ActiveCell.FormulaR1C1 = "20"
Range("C20").Select
ActiveCell.FormulaR1C1 = "23"