bu arada kendi kodumda da düzeltme yaptım ilk satırda değişiklik olmaması için satır kontrolünü ekledim

Private Sub Worksheet_Change(ByVal Target As Range)



If Not Intersect(Target, Range("K:K")) Is Nothing Then 'sadece K sütununa bakar

    Dim cll As Range

    AdrX = Target.Address

    If InStr(AdrX, ":") > 0 Then ilk = Split(AdrX, "$")(2): Son = Split(AdrX, "$")(4) Else ilk = Split(AdrX, "$")(2) & ":": Son = Split(AdrX, "$")(2)



    Set Trgt = Range("K" & ilk & "K" & Son)



    For Each cll In Trgt

        If cll.Row > 1 Then 'satır kontrolü

            Set Rng = cll

            AdresIlIlce (Rng)

        End If

    Next cll

End If



End Sub

yada

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("K:K")) Is Nothing Then 'sadece K sütununa bakar

    Dim cll As Range

    AdrX = Target.Address

    If InStr(AdrX, ":") > 0 Then ilk = Split(AdrX, "$")(2): Son = Split(AdrX, "$")(4) Else ilk = Split(AdrX, "$")(2) & ":": Son = Split(AdrX, "$")(2)

    If ilk = "1:" Then ilk = "2:"

    If Son < 2 Then Son = 2

    Set Trgt = Range("K" & ilk & "K" & Son)



    For Each cll In Trgt

            Set Rng = cll

            AdresIlIlce (Rng)

    Next cll

End If



End Sub