Passing vba array result to excel sheet

Dear All,
I am to transfer VBA array in to active excel sheet.
There is TOTAL number of element (totalno). I get that from VBA. Now corrosponding to each number there is unique number ( noelement). I get it using VBA code.
So I learn that I can define array as

Redim noelement (totalno-1) as long.

Now I want data in excel sheet in column.

Suppose total No =10
I want “noelement” in Column A start from A1 , as shown below. Header shold be named as ELEMENT IN CELL A1
ELEMENT
201
203
205
506
407
879
345
666
456
876
Please guide me to write VBA code.
Regards,
PN

Yes Man,
This is working. I was trying hard since morning 10.00 am,Now it is 6.45 pm.

You have solved it.

Thanks a lot.
Regards,
PN