vba - 株式市場フィードの VBA のオブジェクト定義エラー

Question

Excel で特定の株式のマーケット フィードを取得しています。だから私は別のセルに株価をコピーしようとしています。たとえば、X = 56 は時刻 t1 の株価です。セルの 56 をコピーして A50 と言って、次回 t2 で株価が変化し、セルでそれをコピーして A 51 と言うと、それが続きます。コードを書きましたが、エラーが発生します。

Sub CopyOpenItems()
Dim wbTarget
Dim wbThis
Dim WTF As Long
Dim FTW As Long
Dim X As Integer
X = 0

Set wbThis = ActiveWorkbook
Set wbTarget = ActiveWorkbook

ThisWorkbook.Sheets("Equity").Activate
FTW = Cells(151, "F").Value
WTF = Cells(X, "F").Value

Do While ActiveCell.Value <> ""
   FTW = WTF
   X = X + 1
   Loop
   End Sub