Yardım başlangıç boşluklarını aldırma

Arkadaşlar bir programdan excel'e aktarma yaptığımda yazıların başlarında bazen 1, bazen 2 bazende 5 vb.. karakter boşluk yapmaktadır. Amacım her ne kadar boşluk varsa bunları otomatik olarak macro ile sildirmek olacaktır. CTRL+H ile boşluk sayı kadar araştırıp boşluk olarak değiştir dediğimde ortalardaki boşluklarıda siliyor. Bunu nasıl yapabilirim?

Ekte örnek vardır.

Teşekkürler.

Merhaba;
Sayfanın kod bölümüne;

Sub kırpp()
For i = 1 To Range("A65536").End(xlUp).Row
Cells(i, 2) = Trim(Cells(i, 1))
Next i
End Sub

Kodlarını ekleyin ve bir butona bağlayarak deneyin.
İyi çalışmalar.