Counting Consecutive Zeros

I have read every single question on counting consecutive numbers in this forum but could not find what I need. I am trying to count the number of consecutive zeros in a row till the cell >0 then the counter is reset and restarts. One point to pay attention is that the number that is>0 when counting starts is included. I wrote a macro for it but somehow I am having problems with it. It returns 0. I want it to be for example

In the excel sheet
Numbers 160 0 0 400 0 0 200 0
Counts 3 3 2

Sub value_count()
Dim count As Integer
Dim k As Integer
Dim j As Integer
For k = 1 To 10
If Cells(1, k).Value > 0 Then
j = k
Do Until Cells(1, j).Value <> Cells(1, j + 1).Value
count = count + 1
j = j + 1
Loop
Cells(2, j).Value = count
If count >= 1 Then
k = k + count
End If
count = 0
End If
Next k
End Sub