Soru Damga (10) Kırpma

[leonadies]

K:K sütununa internetten binlerce veri çekiyorum. Burada resimde görüldüğü gibi bazı damga (10) lu boşluklar oluşuyor. Bunları temizlemek istiyorum ancak sadece oluşan anlamsız boşlukları (yani genel görüntü olarak yine Damga (10) lu şekilde kalmalı) .Kelime sonlarında noktalı virgül mutlaka var.
Almak istediğim sonucu resimde de anlattım.

 

[Necdet]

Merhaba,

Deneyiniz.

Sub kirp()

    Dim i   As Long

    Application.ScreenUpdating = False
    
    i = Cells(Rows.Count, "K").End(3).Row

    With Range("K1:K" & i)
        .Replace Chr(10) & Chr(10), Chr(10)
    End With
    
    Application.ScreenUpdating = True

End Sub

 

[leonadies]

Harika çok teşekkür ederim

 

[Necdet]

Rica ederim