VBA loops

Hi All,

I am trying to create a loop to count the number of rainy days. If there is no rain the value is 0, but if it rains then the value is <0. I want to add all the days of rain in a year and the value returned should be the total number of rainy days.

Option explicit 

Dim n1 As Double
Dim n2 As Double
Dim minimum As Double

For k = 0 To 365


' Get numbers from the spreadsheet
 n1 = Worksheets("Rainfall").Cells(k + 2, 3)

 
' find the number of rainy days
If n1 > 0 Then
  n1 = rainyday
Else
  n1 = n2
End If

Thanks