Народ, здравствуйте! Подскажите плиз, как можно обойти ddos защиту?

Задача следующая: я написал макрос в excel для копирования информации от сюда http://zakupki.gov.ru/pgz/public/action/contracts/search/simple/run. Проще говоря, макрос прощелкивает все страницы (их примерно 1500). Приходится ставить задержку как минимум 5 сек, иначе меня банят. Как можно это оптимизировать и быстро вытащить?

Вот макрос:
Public Function Pause(NumberOfSeconds As Variant)
10 On Error GoTo Error_GoTo

Dim PauseTime As Variant
Dim Start As Variant

20 PauseTime = NumberOfSeconds
30 Start = Timer
40 Do While Timer < Start + PauseTime
50 DoEvents
60 Loop

Exit_GoTo:
70 On Error GoTo 0
80 Exit Function
Error_GoTo:
90 Debug.Print Err.Number, Err.Description, Erl
100 GoTo Exit_GoTo
End Function


Sub zakupki()
ActiveWorkbook.Save
j = 1
For i = 1 To 100000
Cells(j, 1).Select
Cells(j, 1) = i
With ActiveSheet.QueryTables.Add(Connection:= _
"URL; http://zakupki.gov.ru/pgz/public/action/contracts/search/simple/result?index=" & i & "&sortField=&descending=true&tabName=ALL" _
, Destination:=Cells(j, 2))
.Name = "result?index=" & i & "&sortField=&descending=true&tabName=ALL_1"
.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 = "45"
'.WebPreFormattedTextToColumns = True
'.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Pause (5)
j = j + 80
Next i


End Sub