I need to assign values to a range of cells. I use a loop like the following. It takes too many long minutes. I also use a command to disable automatic calculation, but not really better.

ActiveWorkSheet.EnableCalculation = False
for lnRow=1 to 10000
cells(lnRow,1) = ' a numeric value
next lnRow
ActiveWorkSheet.EnableCalculation = True

What is the best way to assign values to a large range of cells?