Импорт таблиц с web страниц одна под другую

[Snekich]

Есть около 100 таблиц в web.
Каждая таблица по отдельной ссылке. (структура таблиц одинаковая)

Мне необходимо все эти таблицы (со всех ссылок) импортировать в ексель в 1 столбик т.е. что бы каждая следующая таблица была ровно под предыдущей.

Я сделал макрос, который импортирует нужные мне таблицы, НО каждая следующая таблица помещается не ровно под предыдущей. (предыдущие таблицы смещаются вправо и в результате получается "лесенка" из всех таблиц)

Помогите исправить пожалуйста.

Sub Поиск()

For i = 1 To 150
'определяем последнюю строку
EndRow = Range("A1").SpecialCells(xlLastCell ).Row + 1
'вставляем результаты поиска начиная с последней строки
With ActiveSheet.QueryTables.Add(Connect ion:="URL;" & Sheets("Регионы").Range("c" & i), Destination:=Range("$A$" & EndRow))
.Name = "Faind"
.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 = "46"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = True
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Next i
End Sub

[kuklp]

У меня нормально, одна под одной. 2007.

[staniiislav]

и у меня работает. до 40 проверил, проблем не было!

[Snekich]

О_0
И вправду работает нормально.
А я голову ломаю что не так...

[Snekich]

Понял в чем дело у меня было.

Я проверял когда у меня строчка была такой:
EndRow = Range("A1").SpecialCells(xlLastCell ).Row

А перед тем как сюда выкладывать я сделал
EndRow = Range("A1").SpecialCells(xlLastCell ).Row + 1


Спасибо за комментарии, а то так бы и ломал голову изучая код...