楽天RSS エクセルのマクロで10秒毎に記録したい

楽天RSSで取得した数値をA１に表示しています。

その数値を、10秒ごとにB1にコピーして、古いデータは右にずらしていきたいのですが、
無限に溜まってしまっても困るので、過去100個までためて、それより古いデータは削除、
というマクロの記述方法を教えて下さい。

No.1 回答者： keithin 回答日時： 2013/08/02 02:06

sub macro1()

’if range("A2") = "STOP" then end
　range("CW:CW").delete shift:=xlshifttoleft
　range("B1").insert shift:=xlshifttoright
　range("B1").value = range("A1").value
　application.ontime timeserial(0,0,10) + now, "macro1"
end sub