please fill in the blanks

B B D 1 Revenue Run 2 For Quarter 1 Ended 2020 3 (in thousands) 4 5 Customer Name January February March 6 Customer A 94.79 57.04 67.10 7 Customer B 84.90 65.04 59.48 8 Customer C 44.34 29.60 43.36 9 Customer D 26.06 44.68 19.41 10 Customer E 19.03 18.20 15.83 11 Customer F 10.99 11.65 12.28 12 Customer G 9.81 10.94 7.05 13 Customer H 0.44 0.29 4.40 14 Sub SortChoice intColumnSorton as strSortOrder as "Get user inputs for variable values - Inputbox("Which month do you want to sort on?") |= Inputbox("Enter A for ascending or D for descending.") Perform the sort by the appropriate column and sort order Select UCase Case Is = "A" Range(Sheet1.Range("AS).Offset(0, 0), Sheet1.Range("AS").End .End Keyt:=Sheet1.Range("A5").Offset(0. ]). Order : Case Is - "D" Range(Sheet1.Range("A5").Offset(0, 0), Sheet1.Range("A3").End .End Keyt:=Sheet1.Range("A3").Offset(o. ]). Order :- End Select End Sub Header:=x[Yes Header-x Yes