Abey değişiklik yaptığınız zaman kodlara aynı şeyleri tekrar yazıp düzeltmektense 1kg,1 lt ve toplam lt olanları function yaptım ordan kolayca bulunur artık.
Deneyin sorun varsa düzelteyim.
Dediğiniz array olarak sorun olmaz ama veri doğrulama içine almak için koda eklemelisiniz sayfa yerine.

---

(14/12/2023, 11:27)hnakis yazdı: With ThisWorkbook.Worksheets("Maliyet hesaplama")
son = .Cells(.Rows.Count, "B").End(xlUp).Row

Yukardaki ve end with kısmını ve Dim son As Long burayısilebilirsiniz bence array ile yapacaksanız.