how to eliminate Subscript out of range message every time

Top