Erro ao criar Macro para importar dados da WEB
Olá
Estou criando uma planilha de futebol, já fiz a parte da classificação...
Minha ideia é que dê para atualizar online, importante uma tabela da web, fiz e deu certo.
O problema vem na hora de criar uma macro para isso, clico em Gravar Macro e faço o procedimento.
Atribuo ele a um botão e quando vou executar da um erro: Erro em tempo de execução '5':
Argumento ou chamada de procedimento inválida.

A macro ficou assim:
Sub Macro4()
'
' Macro4 Macro
'

'
With ActiveSheet.QueryTables.Add(Connection:= _
"URL; http://blogawtech.blogspot.com.br/p/teste.html", Destination:=Range( _
"$F$1"))
.CommandType = 0
.Name = "teste_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 = "1"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub

Se puderem responder, ficarei muito grato.
Obrigado e forte abraço.