I have issue to run this code. The code come out with this error "Error in object$range.data.ori[1, i] : subscript out of bounds".
This code is