EXCEL的巨集問題

做了一個巨集，裡面是簡單的複製、貼上、剪下、更新資料等動作
但是要他做一百遍甚至更多，我嘗試把巨集的程式內容複製很多次
幾十次是可以，但是上百次的話會出現對話框說"程序太大"
請問如何修改程式呢?

印象中是要加
for i=1 to 100
...
...
end
之類的

我目前的巨集內容是這樣



Sheets("紀錄").Select
Range("A2:C2").Select
Selection.Insert Shift:=xlDown
Sheets("日期").Select
Range("A1").Select
Selection.Copy
Sheets("紀錄").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("日期").Select
Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("當日行情").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A5").Select
Application.CutCopyMode = False
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("Q2:Q3").Select
Selection.Copy
Sheets("紀錄").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Sheets("日期").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Sheets("紀錄").Select
Range("A1").Select