[Immortal]

Χρήστο καλησπέρα. Προσάρμοσα τον κώδικά σου στο βιβλίο μου. Μέχρι στιγμής δεν έχω συναντήσει κάποιο εμπόδιο, παρά μόνο το παρακάτω, αλλά νομίζω πως κατάφερα να το διορθώσω,

Option Explicit
Dim I As Long, R As Long, A As Long
Dim X As Long, Y As Long, Z As Long, Sht As Worksheet

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [Y3]) Is Nothing Then Exit Sub

Dim Ltr As Double, Km As Double
...

Στο τελευταίο συνημμένο σου έχεις και τα κόκκινα πριν το

Private Sub Worksheet_Change(ByVal Target As Range)

και σε κάθε επόμενη εισαγωγή Α/Α, στα σύνολα πρόσθετε και της προηγούμενης ημέρας.
τα κατέβασα εκεί που τα έχω κοκκινισμένα τώρα και νομίζω πως λειτουργεί όπως πριν.
Δεν ξέρω αν έκανα καλά αλλά δεν βλέπω να επηρεάζεται κάτι άλλο. Μέχρι στιγμής βλέπω πως αθροίζει σωστά

Σε υπέρ ευχαριστώ για την προσπάθεια που κατέβαλες και το ολοκλήρωσες και αυτό, αν και έχω την εντύπωση ότι σε ταλαιπώρησα περισσότερο από ότι ήταν στην αρχή