Kod çalışma hatası

İyi günler üstadlarım.
Aşağıdaki kodu kendimizce uyarladık.

Kodun ilk kısmı çalışıyor,
Diğerleri çalışmıyor.

Yardımcı olabilir misiniz?
Şimdiden teşekkür ederiz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Intersect(Target, Range("H:H")) Is Nothing Then Exit Sub
Set ara = Range("V1:V" & Cells(Rows.Count, "V").End(xlUp).Row).Find(Me.Cells(Target.Row, 7))
If Not ara Is Nothing Then Target = Cells(ara.Row, "Y")

If Intersect(Target, Range("L:L")) Is Nothing Then Exit Sub
Set ara = Range("V1:V" & Cells(Rows.Count, "V").End(xlUp).Row).Find(Me.Cells(Target.Row, 11))
If Not ara Is Nothing Then Target = Cells(ara.Row, "Y")

If Intersect(Target, Range("P:P")) Is Nothing Then Exit Sub
Set ara = Range("V1:V" & Cells(Rows.Count, "V").End(xlUp).Row).Find(Me.Cells(Target.Row, 15))
If Not ara Is Nothing Then Target = Cells(ara.Row, "Y")

If Intersect(Target, Range("T:T")) Is Nothing Then Exit Sub
Set ara = Range("V1:V" & Cells(Rows.Count, "V").End(xlUp).Row).Find(Me.Cells(Target.Row, 19))
If Not ara Is Nothing Then Target = Cells(ara.Row, "Y")

End Sub