Excel Macros – SubIndice fuera del intervalo

Estoy desarrollando una Macros en Excel que tome direcciones web desde un rango de celdas definido y haga una consulta, pero al momento de tomar la direccion y hacer la consulta me muestra un mensaje de error “Subindice fuera del intervalo”. Este es el codigo que estoy trabajando, la parte en negrita es donde me esta marcando el error.

Sub ConsultaGlobal()

Application.Run "'Keywords Research Okey Mkt.xlsm'!SeleccionGlobal" AuxKW = Selection.Count  For I = 1 To AuxKW Step 1      **With Sheets("'Resultado Consulta'").QueryTables.Add(Connection:= _     "URL;" + Sheets("Resultado Consulta").Cells(I, 2) _     , Destination:=Range("'Recoleccion de Datos'!A1"))**     .CommandType = 0     .Name = I     .FieldNames = True     .RowNumbers = False     .FillAdjacentFormulas = False     .PreserveFormatting = False     .RefreshOnFileOpen = False     .BackgroundQuery = False     .RefreshStyle = xlInsertDeleteCells     .SavePassword = False     .SaveData = True     .AdjustColumnWidth = False     .RefreshPeriod = 0     .WebSelectionType = xlEntirePage     .WebFormatting = xlWebFormattingNone     .WebPreFormattedTextToColumns = True     .WebConsecutiveDelimitersAsOne = True     .WebSingleBlockTextImport = False     .WebDisableDateRecognition = False     .WebDisableRedirections = False     .Refresh BackgroundQuery:=False      Sheets("Recoleccion de Datos").Range("SERP").Copy     Sheets("Resultado Consulta").Range(I + 1, 3).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _     :=False, Transpose:=False     Sheets("Recoleccion de Datos").Cells.Clear     Sheets("Resultado Consulta").Select      End With      Next 

End Sub

Gracias de antemano por la ayuda