Sorry, Joe, didn't read the code through and shot my mouth off. Mea
culpa.

When I pasted your code into my VBA editor and commented out all the
lines between Set n = c.Offset(1, 0) and Set c = n, the cell pointer
moved to each cell until a blank cell was encountered. I'll set up my
spreadsheet to emulate yours, and try some more debugging.