Код выполняется в другом столбце, который является неправильным

Question

У меня есть код, который отлично работает на целевой колонке. Проблема, однако, заключается в том, что, когда кто-то вставляет новый столбец, код не распознает, что столбец сместился в результате вставленного столбца.

при выполнении кода он запускается не в том столбце.

Может кто-нибудь помочь мне с тем, чтобы убедиться, что код выполняется в нужном столбце, даже если вставлен новый столбец.

Пожалуйста, смотрите ниже код:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Oldvalue As String
    Dim Newvalue As String

    On Error GoTo Exitsub

    If Target.Column = 24 And Target.Row > 4 And Target.Row < 500 Then
        If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
        GoTo Exitsub
        Else: If Target.Value = "" Then GoTo Exitsub Else
            Application.EnableEvents = False
            Newvalue = Target.Value
            Application.Undo
            Oldvalue = Target.Value
            If Oldvalue = "" Then
                Target.Value = Newvalue
            Else
                Target.Value = Oldvalue & ", " & Newvalue
            End If
        End If
    End If

    Application.EnableEvents = True

Exitsub:
    Application.EnableEvents = True
End Sub

Это код, который отлично работает, но не в том столбце, если был вставлен новый столбец.