Как остановить циклическое исполнение

Option Explicit
Public Data As Range
Public Shtat As Range


Private Sub Worksheet_Change(ByVal Target As Range)
Set Data = Worksheets(1).Cells(9, 3)
Set Shtat = Range(Worksheets(1).Cells(12, 2), Worksheets(1).Cells(2, 12))
If Not (Intersect(Target, Data) Is Nothing) Then SetData
If Not (Intersect(Target, Shtat) Is Nothing) Then SetShtat
End Sub

Public Sub SetData()
Sheets(1).Cells(9, 3) = "íà " + Str(Date) + " ã."
End Sub
Public Sub SetShtat()
Worksheets(1).Cells(12, 2).Value = 10
Worksheets(1).Cells(12, 3).Value = 11
Worksheets(1).Cells(12, 4).Value = 12
Worksheets(1).Cells(12, 5).Value = 13
Worksheets(1).Cells(12, 6).Value = 14
Worksheets(1).Cells(12, 7).Value = 15
Worksheets(1).Cells(12, 8).Value = 16
Worksheets(1).Cells(12, 9).Value = 17
Worksheets(1).Cells(12, 10).Value = 18
Worksheets(1).Cells(12, 11).Value = Worksheets(1).Cells(12, 2).Value + Worksheets(1).Cells(12, 3).Value
End Sub