second message was not posted because of "server is busy at the moment"...

here it is:

for error line:

change
[VBA]Set CIndex = Range(CSt.End(xlDown))[/VBA]

to
[VBA]Set CIndex = CSt.End(xlDown)[/VBA]