VBA Destinationをアクティブセルに
VBA練習中の初心者です。アドバイスをお願いいたします。
WEBクエリの操作をマクロに記録したものを編集しています。
そこで、コード内にあるDestinationをactivecellに指定したいのですが、エラーが治りません。（下記コードの、with文の最初の行の部分です）
通常は、Destination:=Range("A1")と記述されていたものを、編集しました。
どこが間違っているかわかりますでしょうか？
よろしくお願いいたします。
やりたい操作は、WEBクエリをシート（URLTEST）のB２から下に羅列しているURLを順に表示して、シート（データ）に、指定したテーブルを順に貼り付ける操作です。
他にも間違っている部分があると思いますので、何かあった場合、ご指摘お願いいたします。
Sub WEBクエリ連続取得()
Dim I As Integer
I = 1
Do
If I = 1 Then
Worksheets("データ").Activate
Range("A1").Select
Else
Worksheets("データ").Activate
Range("A1").End(xlDown).Offset(1, 0).Select
End If
With ActiveSheet.QueryTables.Add(Connection:="ActiveWorkbook.WorkSheets(""URLTEST"").Cells(""2,I+1"")", Destination:=Activecell)
.Name = "151"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "22"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
I = I + 1
'シート”ボタン”に現在の変数を表示する
Activebook.Worksheets("ボタン").Range("E6").Value (I)
Loop While ActiveWorkbook.Worksheets("URLTEST").Cells("2,I+1") = ""
MsgBox "Finish"
End Sub
