values in arrays

[sey]

How can i put values that i found into an array.

Sub copypastelookup()
Dim acell As Range
Dim teller As Integer
 

teller = 0


Sheets("SETUP").Activate
Range("TotalLenght").Select
x = Range("Totallenght").Value / 86

For Each acell In Range("FirstRow")
y = acell.Value / x

 
Next acell

I want to put the values he found in the first row into an array
So i can put each value in another cell with code like this :

For Each y In array
Range("A1").Select
ActiveCell.Offset(0, teller + 1).Select
 

Next array

Kind Regards
Sey