kod sıkıntısı

[sinemomec]

arkadaşlar eklemiş olduğum kod düzgün çalışmıyor acaba nerede sıkıntı var
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Name = "HESAP DÖKÜMAN VERİ AKTARMA" Then Exit Sub
If Target.Address = "$C$6" Then
Sheets("HESAP DÖKÜMAN VERİ AKTARMA").Range("D2").Value = Target.Value
ElseIf Target.Address = "$C$7" Then
Sheets("HESAP DÖKÜMAN VERİ AKTARMA").Range("D3").Value = Target.Value
ElseIf Target.Address = "$I$12" Then
Sheets("HESAP DÖKÜMAN VERİ AKTARMA").Range("D5").Value = Target.Value
ElseIf Target.Address = "$I$13" Then
Sheets("HESAP DÖKÜMAN VERİ AKTARMA").Range("D6").Value = Target.Value
ElseIf Target.Address = "$I$14" Then
Sheets("HESAP DÖKÜMAN VERİ AKTARMA").Range("D7").Value = Target.Value
ElseIf Target.Address = "$I$15" Then
Sheets("HESAP DÖKÜMAN VERİ AKTARMA").Range("D8").Value = Target.Value
ElseIf Target.Address = "$I$16" Then
Sheets("HESAP DÖKÜMAN VERİ AKTARMA").Range("D9").Value = Target.Value
ElseIf Target.Address = "$I$17" Then
Sheets("HESAP DÖKÜMAN VERİ AKTARMA").Range("D10").Value = Target.Value
ElseIf Target.Address = "$I$18" Then
Sheets("HESAP DÖKÜMAN VERİ AKTARMA").Range("D11").Value = Target.Value
ElseIf Target.Address = "$I$19" Then
Sheets("HESAP DÖKÜMAN VERİ AKTARMA").Range("D12").Value = Target.Value
ElseIf Target.Address = "$I$20" Then
Sheets("HESAP DÖKÜMAN VERi AKTARMA").Range("D13").Value = Target.Value
ElseIf Target.Address = "$I$21" Then
Sheets("HESAP DÖKÜMAN VERİ AKTARMA").Range("D14").Value = Target.Value
ElseIf Target.Address = "$I$22" Then
Sheets("HESAP DÖKÜMAN VERİ AKTARMA").Range("D15").Value = Target.Value
ElseIf Target.Address = "$I$23" Then
Sheets("HESAP DÖKÜMAN VERİ AKTARMA").Range("D16").Value = Target.Value
ElseIf Target.Address = "$I$24" Then
Sheets("HESAP DÖKÜMAN VERİ AKTARMA").Range("D17").Value = Target.Value
ElseIf Target.Address = "$I$25" Then
Sheets("HESAP DÖKÜMAN VERİ AKTARMA").Range("D18").Value = Target.Value
ElseIf Target.Address = "$I$26" Then
Sheets("HESAP DÖKÜMAN VERİ AKTARMA").Range("D19").Value = Target.Value
ElseIf Target.Address = "$I$27" Then
Sheets("HESAP DÖKÜMAN VERİ AKTARMA").Range("D20").Value = Target.Value
ElseIf Target.Address = "$I$28" Then
Sheets("HESAP DÖKÜMAN VERİ AKTARMA").Range("D21").Value = Target.Value
ElseIf Target.Address = "$I$29" Then
Sheets("HESAP DÖKÜMAN VERİ AKTARMA").Range("D22").Value = Target.Value
ElseIf Target.Address = "$I$30" Then
Sheets("HESAP DÖKÜMAN VERİ AKTARMA").Range("D23").Value = Target.Value
ElseIf Target.Address = "$I$31" Then
Sheets("HESAP DÖKÜMAN VERİ AKTARMA").Range("D24").Value = Target.Value
ElseIf Target.Address = "$I$32" Then
Sheets("HESAP DÖKÜMAN VERİ AKTARMA").Range("D25").Value = Target.Value
End If
End Sub