Продажи жилья за полгода: Напечатать исходные данные в виде таблицы

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

Sub Пример()
    Dim N, As Integer, i As Integer
    Dim G() As String
    Dim P() As Integer
    Dim K() As Single
    Dim S() As Single
    Dim Sr() As Single
    Dim minCost As Single, minTown As Long
    N = InputBox("количество обследуемых городов")
    ReDim G(1 To N) As String
    ReDim P(1 To N) As Integer
    ReDim K(1 To N) As Single
    ReDim S(1 To N) As Single
    ReDim Sr(1 To N) As Single
    For i = 1 To N Step 1
        G(i) = InputBox("название города")
        P(i) = InputBox("количество проданных квартир в")
        K(i) = InputBox("количество кв. м.")
        S(i) = InputBox("Введите стоимость 1 кв.м в городе")
    Next i
    Debug.Print "город"; Tab(20); "количество проданных квартир"; Tab(50); "количество кв. м."; Tab(70); "Стоимость 1 кв.м"
    For i = 1 To N
        Debug.Print G(i); Tab(20); P(i); Tab(50); K(i); Tab(70); S(i)
    Next
    'Определение самой низкой стоимости одного квадратного метра.
    minCost = S(1)
    minTown = 1
    For i = 2 To N Step 1
        If S(i) < minCost Then
            minCost = S(i)
            minTown = i
        End If
    Next i
    Debug.Print vbCr
    Debug.Print "Самая низкая цена 1 кв. м.:" & vbCr
    Debug.Print G(minTown); Tab(20); P(minTown); Tab(50); K(minTown); Tab(70); S(minTown)
End Sub