Deleting last two characters in a cell

As I see it your last Evaluate is still missing a closing parenthesis, eg:

.Value = Evaluate("IF(ROW(" & .Address & "),LEFT(" & .Address & ", LEN(" & .Address & ")-2))")