質問者が納得よくは分からないですが、コードに無駄がありますね。次のようにしてみては?
Sub コード入力処理(Target As Range)
Dim rNum As Long
Dim Code As Variant
If Target.Count > 1 Then Exit Sub ' 行削除や複数項目入力は未対応
If Intersect(Target, Range("D14:D230")) Is Nothing Then Exit Sub ' コード入力以外は未対応
If ...
3951日前view9