VBA sideskift

Hejsa

Jeg har et regneark med en kode som jeg gerne vil have til at lave et stop i løkken og kalde min makro og så tilbage til løkken efter 25 gennemløb.

granse = ActiveSheet.UsedRange.Rows.Count
       

        For check = 1 To granse
startigen:
i = i + 1

  Sheets("Ark4").Range("a" & i).Value = Sheets("Ark2").Range("b" & check).Value

        If check = i Then
    Call minmakro
    a = 0
    i = i + 25
GoTo startigen
    End If
   
    Next check


Jeg vil derfor gerne have at den kører så der efter de første 25 gennemløb køres minmakro en gang og igen ved de næste 25 poster køres minmakro igen osv.

Indtil der ikke er flere rækker i ark2.