ikili Private Sub hatası ?

[sirkülasyon]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [H9]) Is Nothing Then
Ad = ""
Soyad = ""
a = Split(Target, " ")
For j = 0 To UBound(a) - 1
Ad = Trim(Ad & " " & a(j))
Next j
Soyad = Trim(a(UBound(a)))
Ad = Evaluate("=PROPER(""" & Ad & """)")
Soyad = Evaluate("=UPPER(""" & Soyad & """)")
Target = Ad & " " & Soyad
ElseIf Not Target.Address <> "$H$8" Is Nothing Then
Application.EnableEvents = False
Target = StrConv(Target, vbUpperCase)
Target.Replace What:="I", Replacement:="İ", MatchCase:=True
Target.Replace What:="ı", Replacement:="I", MatchCase:=True
Application.EnableEvents = True
End If
End Sub

Rica etsem yanlışımın düzeltilmesine yardımcı olabilir misiniz?

 

[sirkülasyon]

Örneklere bakarak düzenledim ama işin ehli olmazsan olmuyor. Kopyala yapıştır ile bir yere kadar.
Rica etsem ustalarım yukarıda yer alan iki makroyu düzenleye bilir mi?