Yalniz @feraz bey topu topu 4 olasılık var bir de arada 1den fazla bosluk olabilme ihtimali

Gecici=Trim(metin) 

tüm fazla boşlukları teke düşürür
Aşağıdaki 3 satır olasılıkları teke düşürür

Gecici=Replace(Gecici, "% 52", "%52")

Gecici=Replace(Gecici, "52%", "%52")

Gecici=Replace(Gecici, "52 %", "%52")

Gerisi sadece replace ile %52'yi istenen degerle degistirmek yada eğer ayrı bir sütuna eklenecekse
If instr ile kontrol edip varsa yeni alana eklemek
Atladığım nokta neresi? Dizi kullanmaya gerek var mı burada