recorrer columna e insertar al lado los datos encontrados vba

[IYP]

buenas noches
estimados

les cometo tengo unas macros en vba excel

busco un dato que se encuentra en mi archivo de excel en la columna "A1" en una pagina web y
en las columnas a la derecha "B1" "C1" "D1" "E1" "F1" me coloca los resultados

me gustaría que me ayudaran si podría recorrer un rango de la columna A y realizar la búsqueda y colocar a la par los resultados cada vez que lo recorre 
dejo abajo mi código,

de ante mano muy agradecido saludos cordiales.

 

-------------------------------------------------------------------------------------------------------------------------

Option Explicit
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
Dim ie As Object

' abrir internet explorer con url para realizar busqueda
Sub cciexploc()

  Set ie = CreateObject("INTERNETEXPLORER.APPLICATION")
  ie.NAVIGATE "http://direccionficticia/informacion/buscarNombre.php"
  ie.Visible = False
    
End Sub

'enviar informacion de excel a buscar en la web
Sub cuadro_texto()
ie.Document.GetElementsByTagname("input")(0).Value = [a1]
End Sub

'buscar dato en la pagina web
Sub boton1_a()
ie.Document.GetElementsByTagname("input")(1).Click
End Sub

'enviar a excel los datos encontrados
Sub ie_getElementByTagName()

[b1] = ie.Document.GetElementsByTagname("td")(3).innerText
[c1] = ie.Document.GetElementsByTagname("td")(4).innerText
[e1] = ie.Document.GetElementsByTagname("td")(5).innerText
[f1] = ie.Document.GetElementsByTagname("td")(6).innerText
End Sub

'este main lo coloco en un boton en excel y corre los procedimientos anteriores
Sub Main()

    Call cciexploc
    Call Sleep(2000) 'espera por 10 segundos
    Call cuadro_texto
    Call boton1_a
    Call Sleep(4000) 'espera por 10 segundos
    Call ie_getElementByTagName

 
End Sub