How to assign a number to course name in inputbox

Hi friends,
In column ‘o’ I have inserted a number for course name in column ‘p’. I want to assign a course name to that particular number as follows:

Column ‘o’ Number ... Column ‘p’ Course name
1: A. B. C.
2: J. K. L.
3: P. Q. R.
4: X. Y. Z.

And so on as per course names.

If I enter number 1 in inputbox then I want to enter the course name in column ‘b4’ respectively.

Sub StudentList()

Dim y As String
Dim c As String

    y = InputBox("enter academic year to filter")
    c = InputBox("enter course number to filter")
  
        Application.EnableEvents = False
        
    Range("n7").Select
    Selection.AutoFilter
    ActiveSheet.Range("$B$7:$aa$3000").AutoFilter Field:=13, Criteria1:=y, Operator:=xlAnd
    Range("o7").Select
    ActiveSheet.Range("$B$7:$aa$3000").AutoFilter Field:=14, Criteria1:=c, Operator:=xlAnd
Range("b4") = y & " " & c

        Application.EnableEvents = true


End sub

Any help will be appreciated.

Thanking you.

Mukesh