this code don't work well can anyone help me "v8i" "vba"

this macro make highlite on the clashes point that i already entered in excel format for this macro below

but i face some problems

1- the cloud on clash point are very far from the model

2-there some errors appear in run time of this macro