[Rozwiązano] VBA - Jak stworzyć makro sumujące wartości i wstawiające wiersze w Excelu?

Szukam takiego marka, które po każdym wierszu z danymi:

Wstawi wiersz (zaczynając od 3 wiersza).
Wartość z C3 przeniesie do C4 (konkretnie datę)
Zsumuje wartości D2+D3, E2+E3, F2+F3, G2+G3, I2+I3
Liczby od D4 do I4 zamieni na wartości.
Wstawi wiersz 6
Wartość z C5 przeniesie do C6 (konkretnie datę)
Zsumuje wartości D4+D5, E4+E5, F4+F5, G4+G5, I4+I5
Liczby od D6 do I6 zamieni na wartości.
itd. aż skończą się wszystkie wiersze z danymi (może być ich kilkaset)

dodaję plik gdzie ręcznie zrobiłem (na żółto) tak jak ma to wyglądać

No niestety źle wyszło zupełnie inaczej niż we wzorze. Załączam plik z wpisanym kodem.

Cytat:

wyszło zupełnie inaczej niż we wzorze

Mówisz zupełnie inaczej. A co konkretnie?
Nie wstawił wiersza 4 (Twojej tabeli 3).
Nie przeniósł daty z C3 do C4?
Nie zsumował D2 i D3 w D4?

Na czerwono zaznaczyłem

Dodano po 2 [minuty]:

Powinien skasować wartość z C3, C5 itd.
Nie wstawił wiersza 6
Za to wstawił wiersz 11 nie wiadomo dla czego

Dodano po 1 [minuty]:

Dołączam plik z kopiowaniem dla wszystkich kolumn

A to?

Widzę, że to sumuje jakoś co drugi wiersz a powinno sumować wiersz utworzony z następnym pod nim

Dodano po 35 [sekundy]:

zaraz sprawdzę bo się wstrzeliłem

Dodano po 9 [minuty]:

teraz wygląda to elegancko, tylko czy nie da się skasować wartości z tych komórek co są na czerwono ?

Dodano po 12 [minuty]:

Teoretycznie może nawet w drugiej pętli jakoś to robić

Dzięki wielkie, wszystko działa.