I wrote:
If you reach a point where you realize that you would
prefer to avoid the irregular combination (I would),
use the following macro instead.
[....]
' determine range of output.
If nCol nPool Then nCol = nPool
nRow = Int(nPool / nCol)

Oops, I dropped a line in my copy-and-pasting somehow. Insert the following
line after the lines above:

Set r = Range(rAddress).Resize(nRow, nCol)