Preenchendo Formulários na Internet VBA

[Leonardofa]

Pessoal, estou tentando preencher formulários na internet mas estou enfrentando problemas.

Não estou conseguindo dar o loop e copiar a célula que eu quero.

Vocês podem me ajudar?

Tenho uma planilha com alguns dados e quero apenas preencher em uma página na web.

Segue o código que estou tentando:

Private Sub FillForm()

Dim a As Integer

Dim b As Integer

Dim IE As Object

Set IE = CreateObject("InternetExplorer.Application")

IE.Visible = True

IE.Navigate "https://signup.live.com/"

Do

DoEvents

Loop Until IE.ReadyState = 3

Do

DoEvents

Loop Until IE.ReadyState = 4

a = 3

Cells(a, 1).Copy

SendKeys "{tab}"

SendKeys "(^v)"

SendKeys "{tab}"

Cells(a, 2).Copy

SendKeys "{tab}"

SendKeys "(^v)"

Cells(a, 3).Copy

SendKeys "{tab}"

SendKeys "(^v)"

SendKeys "{tab}"

Cells(a, 4).Copy

SendKeys "(^v)"

SendKeys "{tab}"

Cells(a, 5).Copy

SendKeys "(^v)"

SendKeys "{tab}"

SendKeys "(^v)"

SendKeys "{tab}"

SendKeys "{tab}"

Cells(a, 6).Copy

SendKeys "(^v)"

SendKeys "{tab}"

End Sub

[Flechaus]

Impossível!!

Por causa do Capcha.