If you want recursive:

    dat = Round@RandomVariate[NormalDistribution[1000, 0.1*1000], 8];
    
    rec[dat_] := 
     Append[dat[[2 ;; -1]], 
      Round@RandomVariate[NormalDistribution[1000, 0.1*1000]]]
    
    NestList[rec, dat, 10]//Grid

![Mathematica graphics](https://i.sstatic.net/NVBYz.png)

ach well, here cometh the color:

    dat = MapIndexed[Style[#, Hue[#2[[1]]/8]] &, 
       Round@RandomVariate[NormalDistribution[1000, 0.1*1000], 8]];
    
    NestList[rec, dat, 10] // Grid

![Mathematica graphics](https://i.sstatic.net/9O85X.png)