Analyse file bestelhoeveelheid

[MrSpock]

Hallo

Ik had de volgende vraag.
Ik heb een gebruikers voorraad lijst gemaakt, waar we ook de bestelhoeveelheden kunnen invullen en dit door kunnen sturen aan de leverancier
Nu wil ik graag inzichtelijk krijgen over een lange periode wat er per week wordt besteld zodat we de forcast hier beter op af kunnen stemmen.
Blad 1 is de voorraadlijst en blad 2 moet dus het analyse blad worden
Blad 2 moet de ingevoerde bestelhoeveelheid gaan opslaan van de ingevoerde waarde op blad 1
En per week automatische opslaan en na een week een kolom opschuiven (zondag tot zondag)
Probleem is dat er soms 2 maal de zelfde artikelen per week wordt besteld dus moeten de ingevoerde waardes ook bij elkaar opgeteld worden.

Wat ik zelf al geprobeert heb is

Private Sub Worksheet_Change(ByVal Target As Range)If Weekday = 1 Then i = 1
If Not Intersect(Target, Range("B3:B55")) Is Nothing And Target.Count = 1 Then Target.Offset(, 1 + i) = Target.Offset(, 1 + i) + Target
End Sub

Bijgevoegd een voorbeeld file, hierin zijn enige extra kolomen verwijderd hoopelijk verduidelijkd dit mijn vraag

[snb]

Gebruik geen samengevoegde cellen.
Een iets andere opzet van de tabel is voldoende voor het inzicht.