como eu vejo, você tem uma matriz de dados de entrada em dim my_array(10)
esta é a sua matriz, que armazena 10 valores
digamos, você tem 3 planilhas, primeiro é onde você insere dados "Planilha1", segundo é onde você deseja salvar a saída "Planilha2" e terceiro, onde todos os cálculos estão concluídos, não vamos tocá-los.
vamos começar a preencher nossa matriz com valores:
my_array = Array(1, 2, 3, ..., 9)
agora vamos fazer um loop para passar por todos os valores de entrada e salvar os valores de saída:
for i = 1 to 10
Worksheets(1).Range("A1").Value = my_array(i)
onde "A1" é a célula na primeira folha, onde você cola sua entrada. Vamos supor que você receba a saída na célula "A2" na planilha1 e queira armazená-la no collumn "A" na planilha2:
Worksheets(2).Cells(i, 1).Value = Worksheets(1).Range("A2").Value
Não esqueça de fechar o loop:
Next
Assim, obtemos o código, que leva 10 valores codificados e salva a saída para a coluna "A" na planilha2, texto completo:
dim my_array(10)
Private Sub macro1()
my_array = Array(1, 2, 3, ..., 9)
for i = 1 to 10
Worksheets(1).Range("A1").Value = my_array(i)
Worksheets(2).Cells(i, 1).Value = Worksheets(1).Range("A2").Value
Next
End sub