Loop is skipping iterations

I am new to loops but it seems that I can not avoid them forever.
I've modified macro from the web that suits my needs but in my case it doesn't work properly.

Sub TRANSF()


Dim i As Integer
Dim counter As Range
Dim l As Range
Dim ws As Worksheet

Set ws = Sheets("JUNK")

Set l = ws.Range("b1")
Set counter = ws.Range("a13") 

For i = 1 To l
    Call NalogADD
    counter.Value = i
    
Next i

End Sub

Where l = is counta function to count number of iterations for every case
counter = should be number in cell "A13" from 1 to l (this number represent row number
so when changes from 1 to l it calls NalogADD which basically copies range (that is dependent of counter
number-match index function).

Range (NalogADD) is copied in first empty cell and so on.
After review of whole operation, not all instances are activated/copied(e.g.2-4, 5...missing) also instances
(copied ranges) are mixed (last is copiedfirst, then first, then 6th...).

I hope that I've explained this properly.

What do you see in the Immediate Window (CTRL+G) if you add this inside the loop.

Debug.Print "i=" & i

Any 'jumps' in the value of i?

@Norie
It happens so fast I am not able to see anything.
But when I change "l" in For i = 1 To l to 3 (For i = 1 To 3 <--was 39), there is still a gap in values (still missing values for 2 and 3).

File uploaded :
T-Upload.xlsm

@Bernie Deitrick
You wrote that without reading my question?
Set l = ws.Range("b1") so "B1" value is countA
counter = should be a number in cell "A13" from 1 to l

Jovica

Look at the Immediate Window after the code has run

Accidental duplicate.

Why do you think iterations are being skipped?

I've just stepped through the code and that's just not happening.

some debug you your routine will show what it is doing.
Again the information will appear in the immediate window (CTRL+G in VBE to see it)

Sub NalogADD()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim rng1 As Range
Dim rng2 As Range
Dim rng3 As Range
Dim rng4 As Range

Set ws1 = Sheets("JUNK")
Set ws2 = Sheets("NALOG")
Set rng1 = ws1.Range("B13:N15")
Set rng2 = ws1.Range("B13:N14")
Set rng3 = ws1.Range("B13:N13")
Set rng4 = ws2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)

If ws1.Range("a12") = 0 Then
Debug.Print rng3.Address, rng4.Address
rng3.Copy
rng4.PasteSpecial xlValues
rng4.PasteSpecial xlPasteFormats
ElseIf ws1.Range("a12") = 1 Then
Debug.Print rng2.Address, rng4.Address
rng2.Copy
rng4.PasteSpecial xlValues
rng4.PasteSpecial xlPasteFormats
ElseIf ws1.Range("a12") = 4 Then
Debug.Print rng1.Address, rng4.Address
rng1.Copy
rng4.PasteSpecial xlValues
rng4.PasteSpecial xlPasteFormats
Else
Debug.Print "Do nothing", ws1.Range("a12")
End If

End Sub

rows are skipped when A12 is not a valid that requires copying. Why that is I don't know as I don't understand what you are trying to do.