www= 16 
s= 1 
For a =  1  To www
For b = a +  1  To www
For c = b +  1  To www
For d = c +  1  To www
For e = d +  1  To www
For f = e +  1  To www
For g = f +  1  To www
For h = g +  1  To www
For J = h +  1  To www
For k = J +  1  To www
For l = k +  1  To www
For m = l +  1  To www
For n = m +  1  To www
For o = n +  1  To www
For p = o +  1  To www
For r = p +  1  To www
Cells(s, a) = a
Cells(s, b) = b
Cells(s, c) = c
Cells(s, d) = d
Cells(s, e) = e
Cells(s, f) = f
Cells(s, g) = g
Cells(s, h) = h
Cells(s, J) = J
Cells(s, k) = k
Cells(s, l) = l
Cells(s, m) = m
Cells(s, n) = n
Cells(s, o) = o
Cells(s, p) = p
Cells(s, r) = r
s = s +  1 
Next r
Next p
Next o
Next n
Next m
Next l
Next k
Next J
Next h
Next g
Next f
Next e
Next d
Next c
Next b
Next a