I think a little patience on your part wouldn't go astray. It also would have been helpful had you specified your requirements in full from the outset. So far you've made it like getting blood out of a stone... This should also have been posted as a follow-up in the original thread alone. Threads merged.

Change:
If .Range.Text = "X" Then j = j + 1
to:
If Trim(.Range.Text) <> "" Then j = j + 1

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]