[發問] 請教停止執行公式

笨小孩

按動按鈕後想於指定時間內停止執行以下公式內動作，請老師和同學們幫忙完成我這個小製作吧！謝謝

Sub 按鈕1_Click()

    Application.OnTime Now + TimeValue("00:01:00"), "按鈕1_Click"
   
    Range("A1:D10").Value = Range("I1:L10").Value
   
    Range("A1:D10").Select
    Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlStroke, DataOption1:=xlSortNormal
    Range("G1").Select
   
End Sub