Jeg vil gerne have nedenstående løkke til at løbe som beskrevet

Jeg vil gerne have nedenstående kode til at skrive "antal" for hver "J" i "WBresarray(i, 1)" ud til holdudnyt.Cells(k, "E")

altså jeg skulle gerne ende med 936 celler med "antal" i kolonne E....

Hvad gør jeg forkert???

-----------------------------------------------------------------
Dim Antal As Integer, k As Integer, holdudnytantal As Range, cellr As Range, holdnrantal As Range


For j = 1 To 936
k = 2
Antal = 0
For i = 1 To UBound(WBresarray)
        If WBresarray(i, 1) = j Then
        Antal = Antal + 1
        End If
    Next
cellr = Antal
k = k + 1
Next
holdudnyt.Cells(k, "D") = Antal
next