Calculate the average over the 3 test grades and put them

Question

Need Help Figuring Out Practice Code In Language VBA (Visual Basics For Applications in Excel)

The data is included in this table:

YOU SHOULD PASTE THE TABLE IN EXCEL FROM ROWS C5 TO F5 AND COLUMNS FROM C5 TO C55

ID	Test 1	Test 2	Test 3
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50	100 84 80 78 71 85 66 91 81 84 95 62 51 74 62 55 69 88 61 59 52 79 89 66 62 88 62 94 55 94 80 52 54 87 65 51 97 65 100 63 93 78 58 54 73 96 50 71 59 55	72 77 95 58 65 62 81 98 74 62 72 75 64 59 50 62 90 77 95 92 87 78 54 60 84 87 94 96 78 72 83 64 85 96 52 73 67 77 74 58 92 59 81 62 56 99 90 75 67 81	68 88 93 83 88 56 83 63 83 100 91 55 70 83 62 85 52 50 75 61 74 68 96 64 52 94 65 74 99 84 87 65 61 65 71 91 80 89 70 88 94 86 65 96 86 91 61 68 67 84

The table includes 3 tests for students.

a) Use code name wsEx assign cell C5 to the variable rngA Use cell C5 as a reference cell to do the following and use With construction:

b) Format headers with red font, horizontal center, italics (start from C5 and use offset and end method to find the range for headers. Don't just use A1 address such as Range("C5:F5"))

c) Calculate the average for each Test grade and put them on the second empty row below the grades(start from C5 and use offset to specify the range for saving average and use R1C1 reference style for formula. FormulaR1C1 will be "=Average(R[#]C:R[#]C)")

d) The standard deviation for each Test grade and put them on the next row

e) The minimum grades and put them below the standard deviation

f) The maximum grades and put them below the minimum

g) On the first column with data, label each of the four rows added appropriately (e.g., Average, StdDev, Min, Max)

h) Calculate the average over the 3 Test grades and put them on the second empty column to the right of the last column with Grades, Label the column "Average" (average over 3 test: FormulaR1C1 will be "=Average(RC[#]:RC[#])")

i) Sort the data from largest to smallest based on grade in Test 1