Определить количество ненулевых элементов в однородном массиве размера n

Sub Procedure_1()
 
    Dim n As Long
    Dim dArray() As Double
    Dim i As Long
    Dim lCount As Long
    
    'Здесь пользователь указывает, сколько элементов должно быть в массиве.
    n = InputBox("Укажите количество элементов в массиве.")
    
    
    'Задаём размер массива. Размер массива - это количество элементов в нём.
    '1 To - используется, чтобы порядковый номер первого элемента массива был один
    'для удобства написания кода.
    ReDim dArray(1 To n)
    
    
    'Помещаем в массив данные из активного листа из столбца A.
    
    'For ... To ... Step ... Next - называется циклом и используется
    'для выполнения одной и той же команды заданное количество раз.
    For i = 1 To n Step 1
        dArray(i) = Cells(i, "A").Value
    Next i
    
    
    'Подсчитываем ненулевые элементы массива.
    For i = 1 To n Step 1
    
        If dArray(i) <> 0 Then
            lCount = lCount + 1
        End If
    
    Next i
    
    
    'Выводим результат в диалоговое окно.
    MsgBox "Количество ненулевых элементов: " & lCount
    
End Sub

Sub Procedure_1()
 
    Dim n As Long
    Dim dArray() As Double
    Dim i As Long
    Dim lCount As Long
    
       n = InputBox("Укажите количество элементов в массиве.")
    
          ReDim dArray(1 To n)
         
    For i = 1 To n Step 1
        dArray(i) = Cells(i, "A").Value
    Next i
    
    For i = 1 To n Step 1
    
        If dArray(i) <> 0 Then
            lCount = lCount + 1
        End If
    
    Next i
    
      MsgBox "Количество ненулевых элементов: " & lCount
    
End Sub