Como extrair dados de um site até uma determinada página

[AndersonMari014]

Olá Gostaria de saber como eu faço para extrair os dados direto da internet até uma determinada página e quando acabar os dados parar de copiar consigo fazer com macro mais quando não existe a página ele copia a ultima página por exemplo:

O site que estou tentando extrair os dados tem 11 páginas mais pode ser adicionada mais páginas ou retirada páginas como faço para fazer apenas das páginas que existem mesmo eu colocando que o site possua 20 páginas.

O código que estou usando é este aqui

ActiveWindow.SmallScroll Down:=18
Range("A221").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://eol.prefeitura.sp.gov.br/escola/se1426_asp/frequencia_aluno/bf00Lista.asp?offset=200" _
, Destination:=Range("$A$221")) ' PÁGINA 11
.Name = "bf00Lista.asp?offset=200"
.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 = "3"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With

Editado Março 24, 2014 por AndersonMari014