Dim TimeToRun
 Sub MyMacro()
    Application.Calculate
    Call NextRun
End Sub

 Sub NextRun()
    TimeToRun = Now + TimeValue("00:01:00")
    Application.OnTime TimeToRun, "MyMacro"
End Sub

Sub Start()
    Call NextRun
End Sub
Sub Stop_()
    Application.OnTime TimeToRun, "MyMacro", , False
End Sub

Sub CopyPaste()
    ActiveSheet.ListObjects("SETKA").Range.AutoFilter Field:=22, _
        Criteria1:="ИСТИНА"
   Copy_0
   Copy_1
    Sheets("Setka").Activate
    Copy_numar
    Sheets("Setka").Activate
    ActiveSheet.ListObjects("SETKA").Range.AutoFilter Field:=22
    Range("a1").Select
    Sheets("Baza").Activate
    Dim Baza As ListObject
    Set Baza = ActiveSheet.ListObjects(1)
    Baza.Range.Rows(Baza.Range.Rows.Count).Cells(iLastRow + 2, 1).Select
End Sub

Sub Copy_0()
Dim iLastRow As Long
   iLastRow = Cells(Rows.Count, "F").End(xlUp).Row
   Range("g17:x" & iLastRow).Select
   Selection.Copy
End Sub
Sub Copy_1()
 Sheets("Baza").Activate
    Dim Baza As ListObject
    Set Baza = ActiveSheet.ListObjects(1)
    Baza.Range.Rows(Baza.Range.Rows.Count).Cells(iLastRow + 2, 6).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveWindow.SmallScroll Down:=15
End Sub

Sub Copy_numar()
Sheets("Baza").Activate
Range("C6:C7").Select
    Selection.AutoFill Destination:=Range("Baza[N]")
    Range("Baza[N]").Select
    ActiveWindow.SmallScroll Down:=84
End Sub

Sub delete()
    Range("Aaa2").Select
    Selection.Copy
    Range("SETKA[[16]:[20]]").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    Selection.Copy
    Range("SETKA[22]").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Range("g14").Select
End Sub

Sub Refresh_D()
    ActiveWorkbook.RefreshAll
    Sheets("T").Select
    ActiveSheet.ListObjects("TOT").Range.AutoFilter Field:=28
    ActiveSheet.ListObjects("TOT").Range.AutoFilter Field:=28, Criteria1:= _
        "ИСТИНА"
    Sheets("D").Select
End Sub

Sub Refresh_N()
    ActiveWorkbook.RefreshAll
    Sheets("T").Select
    ActiveSheet.ListObjects("TOT").Range.AutoFilter Field:=28
    ActiveSheet.ListObjects("TOT").Range.AutoFilter Field:=28, Criteria1:= _
        "ИСТИНА"
    Sheets("N").Select
End Sub

Sub Refresh_S()
    ActiveWorkbook.RefreshAll
    Sheets("T").Select
    ActiveSheet.ListObjects("TOT").Range.AutoFilter Field:=28
    ActiveSheet.ListObjects("TOT").Range.AutoFilter Field:=28, Criteria1:= _
        "ИСТИНА"
    Sheets("S").Select
End Sub

Sub Refresh_P()
    ActiveWorkbook.RefreshAll
    Sheets("T").Select
    ActiveSheet.ListObjects("TOT").Range.AutoFilter Field:=28
    ActiveSheet.ListObjects("TOT").Range.AutoFilter Field:=28, Criteria1:= _
        "ИСТИНА"
    Sheets("P").Select
End Sub

Sub Refresh_M()
    ActiveWorkbook.RefreshAll
    Sheets("T").Select
    ActiveSheet.ListObjects("TOT").Range.AutoFilter Field:=28
    ActiveSheet.ListObjects("TOT").Range.AutoFilter Field:=28, Criteria1:= _
        "ИСТИНА"
    Sheets("M").Select
End Sub

Sub Refresh_SETKA()
    ActiveWorkbook.RefreshAll
    Sheets("T").Select
    ActiveSheet.ListObjects("TOT").Range.AutoFilter Field:=28
    ActiveSheet.ListObjects("TOT").Range.AutoFilter Field:=28, Criteria1:= _
        "ИСТИНА"
    Sheets("SETKA").Select
End Sub