аюсь запустить это событие изменения рабочего листа для двух разных столбцов (A) и (I) ...

    Private Sub Worksheet_Change(ByVal Target As Range)
        Dim A As Range, B As Range, Inte As Range, r As Range
        Set A = Range("A:A")
        Set Inte = Intersect(A, Target)
        If Inte Is Nothing Then Exit Sub
        Application.EnableEvents = False
            For Each r In Inte
                r.Offset(0, 1).Value = Date
            Next r
        Application.EnableEvents = True 
    End Sub

Это событие я нашел на этом форуме. Его цель - сделать так, чтобы каждый раз, когда данные вводились в столбец «а», они автоматически вводили дату непосредственно в ячейку. Я хочу, чтобы это произошло дважды на рабочем листе. Я не могу понять, как изменить / добавить к нему. Я пытаюсь заставить его запустить логику для столбца А и меня в моей электронной таблице.