Run-time error '9' : Subscript out of range . Some data works, Some do not work

Hi,

I have macro problem "Run-time error '9' : Subscript out of range".
The macro works in some data, some data need macro changes, some data do not work at all.

The excel file in attachment. have 3 sheet, "Monday", "Tuesday" and "Friday".

1) Sheet "Monday" : Works with original macro ( no changes).
2) Sheet "Tuesday" : Works with changes

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

3) Sheet "Friday" : Not work with original macro or changes.

What is macro do is finding number pattern of Plus-Zero-Minus (+0-) then assign "1" at the start of pattern.
The data, original macro and change macro included in file excel.

Excel File : https://www.mediafire.com/file/12p3t...acro.xlsb/file

Original Code:

Please Login or Register  to view this content.

Change Code:

Please Login or Register  to view this content.

Why not just...

Please Login or Register  to view this content.

Your initial code is also flagging (+00)

Number of "0" are random. Minimum is 1 (+0-), there might 2/3/4 "0"s, etc... ( +00- , +000-, +0000-),etc..
But for number of starting +(Plus) and ending -(Minus) is 1 only.

Below code is designed to assign "1" at the end of pattern, Works 100% for all data. :

Please Login or Register  to view this content.

The problem is to assign "1" at the start of pattern.

Plus-Zero-Minus (+0-)

Above does not refer...Anyway...Not to worry...Who provided initial code?

Please Login or Register  to view this content.

Some data, cell E2 is empty but some data E2 contain value.
It does not matter if E2 contain value or not (can be ignore) because I interested to analyze data start at row 3.

Loop stops at 3rd from bottom