Sub Workbook_Open()
Call Vajno
End Sub
 Sub Vajno()
Dim sh As Worksheet
Application.OnTime Now() + TimeSerial(0, 0, 20), "Vajno"
Set sh = ActiveWorkbook.Sheets(1)
If sh.Cells(1, 1) <> oldValue Then
Debug.Print Time
Range("A1").Select
ActiveCell.FormulaR1C1 = "0"
End If
End Sub

Sub AverageWt()
  Dim r&, ar, rg As Range
  With Worksheets(1)
    ar = .Cells(1).CurrentRegion.Value
    For r = 2 To UBound(ar)
      If (ar(r, 3) - [d2]) ^ 2 < 10 ^ 6 Then
        If rg Is Nothing Then
          Set rg = .Cells(r, 1).Resize(1, 3)
        Else
          Set rg = Union(rg, .Cells(r, 1).Resize(1, 3))
        End If
      End If
    Next
  End With
  Application.EnableEvents = False
  r = Cells(Rows.Count, 1).End(xlUp).Row
  If r > 1 Then Rows(2).Resize(r - 1).Cells.ClearContents
  If Not rg Is Nothing Then rg.Copy [a2]
  
  Application.EnableEvents = True
End Sub