Guru do Excel e Power BI

Boa noite caros.
Tenho este programa:
Sub Macro3()
'
' Macro3 Macro
'
' Atalho do teclado: Ctrl+q
'
Range("B3").Select
Range("B3").GoalSeek Goal:=Cells(1, 1).Value, ChangingCell:=Range("C3")
End Sub

Function y(x)
y = x ^ 2 + x - 10 + Log(x)
Cells(2, 2).Select
End Function

OBS: B3 = y(X), C3 = x

Como faço para criar um loop utilizando esse programa. Ou seja, tenho n valores de y, apertaria Ctrl+q e apareceria n valores como solução. Supondo que todos valores estão na mesma coluna ou linha.

Atingir meta é uma especie de looping.
Veja o vídeo
https://www.youtube.com/watch?v=5LwzHI_Nh7g

Eu quero, mudar o programa que postei no comentário anterior para, por exemplo, ter 100 valores de y entre A1 e A100, e ao rodar o macro, aparecer os 100 valores de x , entre B1 e B100, para soluçao de cada y. Tudo isso de uma vez só. Do jeito que postei, só faz a relação entre y(B3) e x(C3)

Sinceridade, não entendi sua demanda.
A rotina está a calcular o valor em relação a A1 oque deseja?
Monte um modelo e demonstre manualmente o que espera obter