エクセルＶＢＡのコピーがうまく出来ません

質問

セルD3:D101に楽天SPのRSS数式の数値が表示されてきます。
3分おきにマクロを実行させ右側の列に順次データを追加していきたいのですが以下のマクロでは3分後にはセルE3:E101へ数式を含む全てがコピーされてしまい値だけをコピーできません。たぶん構文のCopy Cells(3, c + 1)を変更しなくてはいけないと思い試行錯誤したのですが分かりません。
どなたか教えてください。

Private Sub Macro1()

Dim nextTime As Date
Dim c As Date
Dim d As Date

Range("D3:D101").Select
Selection.Copy
c = Range("iv3").End(xlToLeft).Column
d = Range("D65536").End(xlUp).Row
Range(Cells(3, "D"), Cells(d, "D")).Copy Cells(3, c + 1)
Columns("D:D").Select
Application.CutCopyMode = False

nextTime = Now() + TimeValue("00:03:00")
Application.OnTime nextTime, "Macro1

回答No.1

merlionXX

値だけをコピー貼り付けなら

Range(Cells(3, "D"), Cells(d, "D")).Copy
Cells(3, c + 1).PasteSpecial Paste:=xlValues

としたらどうですか？

お礼

ありがとうございました。
検証した結果うまくいきました。
感謝いたします。