Got it into a vba form, and executed it. Now I'm getting a type mismatch (error 13) on this line:

preVal = Range(.Offset(k - 1, 1), .Offset(k - 1, 1)).Value

I have copy/pasted my column I'm working with into a new spreadsheet, into cell A1 (added a header to the column). Formatted the column as numeric, 0 decimals...

Here are the first few rows...
Rel RelPlus
1
0
0
1
0
0
0
0
1
0
0