Makro w VBA, pętla dla wyszukaj wyniku

Potrzebuję makro, które wykona automatycznie funkcje wyszukaj wyniku dla danych zawartych w każdym wierszu osobno, dla wierszy które spełnią dany warunek.

W załączniku przesyłam przykładowy plik.

Makro ma działać w następujący sposób:

0. Formuły w kolumnie D powinno przekleić w formacie wartości do kolumny D, aby pozbyć się formuł

1. Dla wszystkich wierszy, w których w komórkach w kolumnach AN lub AP lub AR wartość jest różna od zera.

2. Makro ma wykonać funkcję szukaj wyniku (goal seek) według następujących zasad

3. Ustaw komórkę - komórka w kolumnie AH

4. Do wartości, która znajduje się w kolumnie M (wartość wyliczana jest za pomocą formuły, więc tu trzeba wkopiować wartość do formuły goal seek)

5. Zmieniając kwotę brutto w kolumnie D

6. Dla przeliczonych wierszy wstawić w kolumnie AV znacznik "TAK" informujący o tym że zostało zrobione przeliczenie (nie dla wszystkich wierszy będzie przeliczenie.