Kleines Problem mit einem Makro

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column  8 Then Exit Sub
a = Int((Target.Row - 0.5) / 9) * 9 + 1
e = a + 8
If Application.WorksheetFunction.CountIf(Range(Cells(a, 8), Cells(e, 8)), "x") > 1 Then
Target.ClearContents
End If
End Sub

Immer 9 Zeilen sind eine Einheit und ich kann in den Zellen H1 - H9 nur in einer Zelle ein x eintragen,
ein zweites lässt sich nicht eintragen.
In H10 - H18 kann ich wieder ein x eintragen.
Nun müsste ich das Makro so abändern, dass immer 12 Zeilen eine Einheit darstellen und ich stets zwei x eintragen kann...also von H1 - H12 zwei x, H13 - H24 zwei x usw.
Habe im Makro die Zahl 9 mit 12 ausgetauscht und hinten >2 eingetragen, doch das stimmt nicht...
Wer kann mir da weiterhelfen?
Danke
tobi