Groep cellen selecteren die herhaalt

[Janusje]

Ha,
In het bestand waar ik mee bezig ben moet ik cellen leegmaken. Een paar kolommen dat lukt me wel, maar nu moet ik cellen groepen selecteren die zich herhalen.
De groepen ("C10:L15") en ("C22:L27") enzovoorts. Er zitten iedere keer 12 rijen tussen. Heeft iemand een idee hoe ik dit aan kan pakken?
Ik heb nu dit:

Private Sub CommandButton1_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer

i = 10
j = 15
k = 1
While i < 1643
Range("Ci:Lj").Select
Selection.ClearContents
i = i + 12 * k
j = j + 12 * k
k = k + 1
Wend
End Sub

Groeten Janneke

 

[Wigi]

Zoiets vermoed ik

Private Sub CommandButton1_Click()
    Dim i As Integer
    For i = 10 To 1643 Step 12
        Range("C" & i).Resize(6, 10).ClearContents
    Next
End Sub

Wigi