recorrer columna e insertar al lado los datos encontrados vba

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