VBA Code for altering a series of data

I have a workbook with a column of 1's and -1's. I want to go through with a loop and alter that data in two instances. If the column produces (1,-1,1) or (-1,1,-1) I then want it to change that third value to be equal to the second value and move on down the column. I have some VBA to accomplish this but it does nothing when I run it. It might be something simple or I might be way off base, either way any suggestions would be appreciated. Here is what I have.( Two options)

Please Login or Register  to view this content.

OR

Please Login or Register  to view this content.

Presuming that your data is in column A

Please Login or Register  to view this content.