Option Explicit
Dim CurRow As Long
Dim Runned As Boolean

Sub Start()

Runned = True
CurRow = 4
ThisWorkbook.Worksheets(1).Cells(10, 2) = ""
Range("B10").Interior.ColorIndex = 0
Application.OnTime Now, "MyProc"

End Sub
Sub Stopp()

Runned = False

End Sub
Sub MyProc()

If Runned Then
  ThisWorkbook.Worksheets(1).Cells(CurRow, 10) = ThisWorkbook.Worksheets(1).Cells(4, 2)
  ThisWorkbook.Worksheets(1).Cells(CurRow, 11) = ThisWorkbook.Worksheets(1).Cells(4, 3)
  ThisWorkbook.Worksheets(1).Cells(CurRow, 12) = ThisWorkbook.Worksheets(1).Cells(4, 4)
  ThisWorkbook.Worksheets(1).Cells(CurRow, 13) = ThisWorkbook.Worksheets(1).Cells(4, 5)
  CurRow = CurRow + 1
   Application.OnTime DateAdd("s", ThisWorkbook.Worksheets(1).Cells(6, 5), Now), "MyProc"
End If

If CurRow > 200 Then
Runned = False
ThisWorkbook.Worksheets(1).Cells(10, 2) = "Вы достигли предельного значения ячеек"
Range("B10").Interior.ColorIndex = 3
Range("B10").Font.ColorIndex = 2
Application.OnTime DateAdd("s", 3, Now), "Allerm"
End If

End Sub
Sub Clear()
Range("B10").Interior.ColorIndex = 0
ThisWorkbook.Worksheets(1).Cells(10, 2) = ""
ThisWorkbook.Worksheets(1).Range("J4:J1000").Clear
ThisWorkbook.Worksheets(1).Range("K4:K1000").Clear
ThisWorkbook.Worksheets(1).Range("L4:L1000").Clear
ThisWorkbook.Worksheets(1).Range("M4:M1000").Clear
End Sub
Sub Allerm()
ThisWorkbook.Worksheets(1).Cells(10, 2) = "Сейчас произойдет сброс"
Range("B10").Interior.ColorIndex = 3
Range("B10").Font.ColorIndex = 2
Application.OnTime DateAdd("s", 3, Now), "Clear"
End Sub