Worksheet_Change не выходит со вторым листом

[Novenkiy77]

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

код.
Private Sub Worksheet_Change(ByVal Target As Range)
If IsDate(Target.Value) = True And Target.Column = 10 Then
Target.Next = Format(DateAdd("yyyy", 1, Target.Value), "dd.mm.yyyy")
End If
End Sub