Посчитать количество чисел в столбце и вывести в свободную ячейку - VBA

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

Здравствуйте, нужен макрос, который по первому столбцу посчитает кол-во товара, затем найдет последнее число и после него через пять строк напишет ответ (кол-во цифр). Оба варианта не работают. Вот код:

Sub kol()
 
Application.Worksheets("Г‹ГЁГ±ГІ3").Activate
Dim iLastRow As Long, c As Integer, i As Long
 
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
c = 0
For i = 20 To iLastRow
If Cells(i, 1) <> 0 Then Cells(iLastRow + 6, 1) = c + 1
Next
 
Sub kolvo()
  Application.Worksheets("Г‹ГЁГ±ГІ3").Activate
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
      Cells(iLastRow + 6, 1) = Application.Count(Range(Cells(20, 1), Cells(iLastRow, 1)))
End Sub

Решение задачи: «Посчитать количество чисел в столбце и вывести в свободную ячейку»

textual
                            Листинг программы 
                        

                            c = 0
For i = 20 To iLastRow
  If Cells(i, 1) <> 0 Then c=c+1
Next
Cells(iLastRow + 6, 1) = c
Cells(iLastRow + 7, 1)="Всего наименований: " & c
                        