>>805-806, >>808
And じゃなくて Or
> If Target.Column < 10 Or Target.Column > 15 Then Exit Sub
A 列も必要なら
If Target.Column <> 1 And (Target.Column < 10 Or 15 < Target.Column) Then Exit Sub
これぐらいになると >>806-807 のやり方が綺麗かも