Ячейка с накоплением через н-ую строчку

[iKlev4s]

добрый день,

есть вопрос о ячейке с накоплением через н-ую строчку. Напр. столбик А - ячейка A10 - 1-я, 4-я и 7-я и ячейка A11 - 2-я, 5-я и 8-я строчки, т.е. через каждую 3-ю строчку. Cтолбик B описывается таким кодом

Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Range("B1:B7")) Is Nothing And IsNumeric(Target) Then
      Application.EnableEvents = False
      Range("B10") = Range("B10").Value + Target.Value
      Application.EnableEvents = True
   End If
End Sub

Спасибо :)

P.S. MS Office 2010