Copiar datos desde diferentes celdas de excel a Google Chrome VBA

[akinsami]

I have created the following macros to enter to a website with user and password

He creado el siguiente macro para entrar en una web con un usuario y contraseña (copiando datos de un fichero excel con esos datos).

Public Sub A_Consulta_Serial_Parnter_Center()

ActiveWorkbook.FollowHyperlink Address:="https://www.zzzz.com", NewWindow:=False, AddHistory:=True

Application.WindowState = xlNormal

' Wait for a little bit to let website upload

Call Timegoes

' Copy data from excel cell, row 2 and column 8, to Google Chrome. This is the username.

Application.SendKeys (Cells(2, 8).Value)

' Tab

Application.SendKeys ("{TAB}")

' Copy data from excel cell, row 3 and column 8, to Google Chrome. This is the pasword.

Application.SendKeys (Cells(3, 8).Value)

' Intro

Application.SendKeys ("~")

Call TiempoPasa

Application.SendKeys ("{TAB}")

Application.SendKeys ("~")

Call TiempoPasa

End Sub

El siguiente macro lo utilizo para esperar a que Google Chrome abra la página web

Public Sub Timegoes()

Dim r As Integer

For r = 1 To 10

Cells(2, 4).Value = Time

Cells(3, 4).Value = r

Application.Wait (Now + TimeValue("00:00:01"))

Next r

End Sub

A partir de ahí, lo que necesito es copiar unos número de la celda A2, y copiarlos en Google Chrome y hacer una búsqueda en la web de esos números, y me dará como respuesta un fichero excel con otros números, que descargaré de la web. Después el macro debería ir a la celda A3, y coiar los números y pegarlos en Google Chrome......y así hasta la última celda con datos.