Создание программы с использованием имен - VBA

Формулировка задачи:

Создать программу определения номеров групп с наибольшим значением качественной успеваемости за прошлый и текущий период для этих номеров групп использовать ИМЕНА.

Sub Opredelenie()
Sheets("Лист2").Select
x = Application.Max([C2:C6])
If Range("C2") = x Then
y = Range("B2")
End If
If Range("C3") = x Then
y = Range("B3")
End If
If Range("C4") = x Then
y = Range("B4")
End If
If Range("C5") = x Then
y = Range("B5")
End If
If Range("C6") = x Then
y = Range("B6")
End If
MsgBox "Максимальная качественная успеваемость:" & "   " & x & "  " & "В группе:" & "   " & y
End Sub

Вложение 909747

И как, сделать Программно)с помощью кода) так чтобы в Ексэле я ввёл данные по качественной успеваемости. И Ексель их сохранил. Я закрыл ексель. Когда снова открываю я ввожу новые данные в таблицу, но чтобы при запуске кода программы он мне выводил и старые и новые введённые данные. Как такую замудрёную задачку можно сделать. Преподаватель сказал с использованием имен.

Решение задачи: «Создание программы с использованием имен»

textual
                            Листинг программы 
                        
                            If Range("C2") = x Then y = Range("B2")