Satır Yüksekliklerini Eşitleme Kodlarda Revize

Mevcut kodun son kısmındaki Application.ScreenUpdating = True: Application....
satırının hemen üstüne Rows("4:" & Son + 1).AutoFit şeklinde bir satır ekleyin bakalım.

Sorun aynen devam ediyor.

Telefondan yazıyorum.
Örnek durumu ben hiç görmedim, sadece akıl yürüterek böyle olmalı dedim.
Sonucu uzun metin olan formüllü sütun veya elle yazılan değerin uzunluğu fazla olan sütun varsa, o sütun için METNİ KAYDIR özelliğinin PASİF olmasını sağlayarak tekrar deneyin.

Kodunuzu adımlayarak çalıştırdığımda aşağıdaki ekran görüntüsündeki gibi K sütununa uzun bir metin yazma gerçekleşiyor. Bu yazma sonucunda satır genişliği yükseliyor. Daha sonra "Application.Calculation = xlCalculationAutomatic" satırı çalıştığında da K* hücresinede yazılan uzun metin otomatik hesaplama sonucunda hücreden siliniyor; sizde satırda uzun bir metin görmediğiniz için bu işe bir anlam veremiyorsunuz

O halde sonuç olarak;
2 numaralı cevapta belirttiğim satır ilavesini, önceki cevapta belirttiğim yere değil de
End Sub satırının hemen üstüne yaparsanız sorunun çözülmesi gerekir.

Arkadaşlar çok teşekkür ederim. Sorunu uzun metin içeren hücrelerin puntolarını küçülterek çözdüm.