Sub Save2()
ThisWorkbook.Save
  Call Auto_Open
End Sub
Sub Auto_Open()
  dt = Now + TimeSerial(0, 0, 10)
  Application.OnTime dt, "MyMacro"
End Sub
Sub MyMacro()
    Application.Calculate
    Range("A1").Interior.ColorIndex = Int(Rnd() * 36)
    Call Auto_Copy
End Sub
Sub Auto_Copy()
Worksheets("Лист1").Range("A1:B20").Copy
Worksheets("Лист2").Range("A1:B20").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
  Call AutoFilter
End Sub
Sub AutoFilter()
 Sheets("Лист2").Select
    ActiveSheet.Range("$A$2:$E$6").AutoFilter Field:=1, Criteria1:="Душанбе"
  Call Start
End Sub
Sub Start()
    Call Save2
End Sub

<Option Explicit

Dim dt As Date
Sub Auto_Open()
  dt = Now + TimeSerial(0, 1, 0)
  Application.OnTime dt, "Auto_Copy"
End Sub
Sub Auto_Copy()
  If dt Then Application.OnTime dt, "Auto_Copy", Schedule:=False
End Sub
Sub Auto_Copy()
Worksheets("Лист1").Range("A1:B6").Copy
Worksheets("Лист4").Range("A1:B6").PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False
End Sub>