Решить задачу (Язык VBA)

[parenek]

Здравствуйте! Передо мной встал вопрос о решении задачи в системе VBA. Но возникли трудности, я попросту не знаю как написать код и блок схему.

Условие таковы:
По результатам продажи жилья за полгода администрацией области получена следующая информация:

Город: Кемерово
Кол-во проданных квартир: 634
Кол-во кв.м: 62800
Сумма от продажи (тыс.руб0 - 6781.70

Напечатать исходные данные в виде таблицы и определить город, в котором стоимость 1 кв.метра минимальная.

Помогите пожалуйста. Начала та знаю как делать. а вот дальше ступр.

[parenek]

вот есть скрипт

Sub Пример()
Dim N, i As Integer
Dim G() As String
Dim P() As Integer
Dim K() As Single
Dim S() As Single
Dim Sr() As Single
N = InputBox("количество обследуемых городов")
ReDim G(N) As String
ReDim P(N) As Integer
ReDim K(N) As Single
ReDim S(N) As Single
ReDim Sr(N) As Single
For i = 1 To N
G(i) = InputBox("название города")
P(i) = InputBox("количество проданных квартир в")
K(i) = InputBox("количество кв. м.")
S(i) = InputBox("Введите стоимость 1 кв.м в городе")
Next
For i = 1 To N
Next
Debug.Print "город"; Tab(30); "количество проданных квартир"; Tab(50); "количество кв. м."; Tab(70); "Стоимость 1 кв.м"
For i = 1 To N
Debug.Print G(i); Tab(30); P(i); Tab(50); K(i); Tab(70); S(i)
Next
End Sub

Вот мне нужно сделать так, чтобы выводилась самое маленькое значение S(i), а рядом название города. Подскажите пожалуйста как это реализовать!?