Option Explicit
Const 始 As Integer = 1             '行の開始セルである「始」を「現在値」に設定
Const 終 As Integer = 2             '行の終了セルである「終」を「出来高」に設定
Const 段始 As Integer = 1 * 300     '※マクロを有効にする最初の銘柄である「段始」を
                                    '「0」から「1」「2」…「15」と変更して、300銘柄
                                    'づつマクロ実行する
Const 段終 As Integer = 段始 + 300  'マクロを有効にする最後の銘柄である「段終」を
                                    '「段始」から300銘柄目に設定
Sub 自動記録()
    Dim 指定時刻 As Date
    Dim 待ち時間 As Date
    有効化
    指定時刻 = Now + TimeValue("0時00分13秒")   '13秒       '13秒待つ
    待ち時間 = TimeValue("0時00分01秒")
    Application.OnTime TimeValue(指定時刻), _
    "転写と値複写", _
    TimeValue(待ち時間)
End Sub
Sub 有効化()                        '「#」を削除して数式を有効にする
    Cells(2, 3).Select
    ActiveCell.Range(Cells(段始 + 1, 始), Cells(段終, 終)).Select
    Selection.Replace What:="#=", Replacement:="=", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveCell.Offset(299, 0).Range("A1").Select
End Sub
Sub 転写と値複写()                  'ダウンロードしたデータを移動して、値複写する
    Cells(2, 3).Select
    ActiveCell.Range(Cells(段始 + 1, 始), Cells(段終, 終)).Select
    Selection.Copy
    ActiveCell.Offset(0, 50).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveCell.Offset(299, -50).Select
    Cells(2, 3).Select
    ActiveCell.Range(Cells(段始 + 1, 始), Cells(段終, 終)).Select
    Selection.Replace What:="=", Replacement:="#=", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    ActiveCell.Offset(299, 0).Range("A1").Select
                 Application.Speech.Speak "end", SpeakAsync:=True
End Sub

Sub 指定時刻にマクロを実行する()
    指定時刻 = Now + TimeValue("00:00:04")  '(注)
    待ち時間 = TimeValue("00:03:00")   '指定時刻に他のプロシージャが実行中の場合の待ち時間
    Application.OnTime TimeValue(指定時刻), _
        "指定時刻に実行するマクロ", _
        TimeValue(待ち時間)
End Sub
'-----------------------------------------------------------------------------------------
Sub 指定時刻に実行するマクロ()
    MsgBox "指定時刻(待ち時間あり)になりました。" & vbCr & vbCr & _
        "処理を再開します。", , Worksheets("Title").Range("書名").Value
End Sub

Option Explicit
Const 始 As Integer = 1             '行の開始セルである「始」を「現在値」に設定
Const 終 As Integer = 2             '行の終了セルである「終」を「出来高」に設定
    Dim 段始 As Integer
    Dim 段終 As Integer
    Dim 指定時刻 As Date
    Dim 待ち時間 As Date
Sub 自動記録()
    段始 = 0 * 300: 段終 = 段始 + 300
    有効化
    指定時刻 = Now + TimeValue("0時00分13秒")   '13秒待つ
    待ち時間 = TimeValue("0時00分01秒")
    Application.OnTime TimeValue(指定時刻), "自動記録2", TimeValue(待ち時間)
End Sub
Sub 自動記録2()
    転写と値複写
    段始 = 1 * 300: 段終 = 段始 + 300
    有効化
    指定時刻 = Now + TimeValue("0時00分13秒")   '13秒待つ
    待ち時間 = TimeValue("0時00分01秒")
    Application.OnTime TimeValue(指定時刻), "自動記録3", TimeValue(待ち時間)
End Sub
Sub 自動記録3()
    転写と値複写
    段始 = 2 * 300: 段終 = 段始 + 300
    有効化
    指定時刻 = Now + TimeValue("0時00分13秒")   '13秒待つ
    待ち時間 = TimeValue("0時00分01秒")
    Application.OnTime TimeValue(指定時刻), "自動記録e", TimeValue(待ち時間)
End Sub
Sub 自動記録e()
    転写と値複写
    MsgBox "終わりました。"
End Sub
Sub 有効化()                        '「#」を削除して数式を有効にする
    | (変更なし)
End Sub
Sub 転写と値複写()                  'ダウンロードしたデータを移動して、値複写する
    | (変更なし)
End Sub