Çok teşekkür ediyorum. uğraşıyorsunuz, buda yeterli sayılır ama başka kişilerde kullanabileceğinden bilmeyen biri için aşağıdaki belirttiğim hususlar yapılabilirmi.

konu ccevaplanmış sorulara taşındığı için yeni değişiklik yaptığım ek dosyayı gönderemiyorum.

=EĞERHATA(EĞER(Paylaşım_bedeli>Alacak_Toplamı_paylaşım;D10;D10*Paylaşım_bedeli/Alacak_Toplamı_paylaşım);"")

E10 hücresine üsteki formülü girmem lazım ancak kodla çalıştığı için alt hücreye atıyor düzenleme yapamıyorum formülü girebilirmisiniz.
paylaşım tutarı toplamı D6 daki paylaşım bedelini geçmemesi lazım. Formül kodada eklenebilir ise iyi olur.

son mesajda belirttiğiniz kodları 9 olanları 10 yaptım boşlukları yinede kaldırmadı.
boş satıra veri girişi yapıldığında Altta boş satır açıyor tab tuşu ile geçildiğinde açılabilirmi? (boşluklar olmasa daha iyi görünüyor)

"Ctrlx ile" boş satır kaldırıldığında üst satırdan sonra TAB tuşu ile yeni satır eklemiyor. toplam satırına gidiyor.

ayrıca Temizle makrosu oluşturulup verilen silindikten sonra kod çalıştırılabilrirmi?