Wpis z mikrobloga

@dominik-ortyl ustaw sobie na górze zmienna dim arkusz1 as worksheet, potem ustaw Set arkusz1 as worksheets(1). Wtedy zamiast pisać iks razy worksheets("Arkusz1"). Range("f1"). Value = costam to dajesz with arkusz1, potem odwołania i end with zamykasz - zobacz sobie with statement vba w googlach. A ja w ogóle to bym zapisał to pętlą z jakimś if. Masz numery to można puścić zapis w komórkach z boksów jakoś odpowiednio i po kolei.