Loop, skip every 3rd row

[288enzo]

I know how to use * to skip rows, but I can't figure out how to do it after every 2 rows.
This is my code

    Dim rng As Range
    Dim i As Long
    Dim var As Variant
    var = Array("82a", "82b", "83a", "83b", "84a", "84b")
    Set rng = Range("C7")
    For i = 0 To UBound(var)
        rng.Offset(i, 0) = var(i)
    Next i

This is the outcome

2021_CertReadinessReport_ASE_AudiSouthern_11062021.xls
	B	C
6	82 Total:
7		82a
8		82b
9	83 Total:	83a
10		83b
11		84a
12	84 Total:	84b
13
14
Dealer Status

This is what I'm trying to achieve

2021_CertReadinessReport_ASE_AudiSouthern_11062021.xls
	B	C
6	82 Total:
7		82a
8		82b
9	83 Total:
10		83a
11		83b
12	84 Total:
13		84a
14		84b
Dealer Status

Thank you for the help and the education.

 

[288enzo]

You can do it with a formula as well

=MOD(352683,19)

Even better. I can use a range reference now to quickly check. Thanks again for the new nugget.