Boşluk Silme Hakkında

[worldda]

Merhaba ,
Excel tablomdaki verilerin sonlarında boşluklar var. Ekteki dosyada özellikle ünvan kısmına F2 yaptığınızda görebilirsiniz. Ama sorunum sayfanın geneli için geçerlidir. Bu boşlukları nasıl silebilirim ?

Yardımlarınız için şimdiden taşekkürler.

 

[Orion1]

Dosyanız ektedir.

Sub boslukları_sil()
Dim hcr As Range
Dim sat As Long
Sheets("Sayfa1").Select
sat = Cells(65536, "A").End(xlUp).Row
Application.ScreenUpdating = False
For Each hcr In Range("B2:C" & sat)
    hcr.Value = RTrim(hcr.Value)
Next
Application.ScreenUpdating = True
MsgBox "B-C sütunlarında Sağdaki boşluklar silindi." & vbLf & _
"evrengizlen@hotmil.com", vbOKOnly + vbInformation
End Sub

 

[worldda]

Yardımlarınız için çok teşekkürler

 

[Orion1]

Yardımlarınız için çok teşekkürler

Rica ederim.
İyi çalışmalar.