Please help with 5-10. It is VBA, and the picture with color is supposed to be the end result.

Dim anchorCell As Range 1.Use the score data in worksheet Problem 2 (wsData) 2. Define a range variable (anchorcell) and assign t Cell A 3. Using the offset property of the anchorcei1,use essae box to display wsData.Activate Set anchorCell = Range ("a1") the value in cell D5 anchorCell.Offset (4, 3).Select MagBox Worksheets.anchorCell 4. Using the cells property of the anchorcell. use a me ssage box to display the value in cell C3 anchorCell.Offset (2, 2). Select MsgBox Worksheets.anchorCell 5. Using zange, anchorcell, the end property, select che zange fox the cells with the ID and SSN (Hint: Use xlDown two times to get to the cop of the desired zange and three times to get to the bottom of the desired range.) Range (anchorCell).End (x1 Down).Select Range (anchorcel1).Ottset (12,).End (x1Down) .Seleot 6.Using range, anchorCel1, the end property and the currencRegion property to select the range for the cells with the ID and SSN 7. Using the anchorcell, offset with the end property and the FormulaRIC properties place a formula under the column H that calculates the average over cores 1 to 5 for all rows 2 to 9.1 zeference a cell, copy the SSN from the range B13:821 to column 11 Scorel (note: step through the code to see the effect because once b) is , 8.Using the copy and paste methods and using the anchorCel1 and oftset to 9. Sozt cells in zange A2:19 according to a) descending SSN, b) ascending 'executed, then the sorting by a) is no 1onger valid. 10. Using the anchorCell and the offset property, redefine a new range with 4 , rows and columns with the upper left-hand corner being cell C4 (Hingt use . the property Resize(#Rows, #Cols). Then highlight the following : a. the 3-rd row from the top of the range of the data in yellow b. the 1ifth column from the left of the range of the data in red c. the Complete 7-th row from the top of the data in magenta d. the complete 6-th column from the left of the data in greern sData.Cells.ClearFormatS