Stworzenie pętli kopującej dane do kolumny F i wyczerpania magazynów

Cześć,

chciałabym stworzyć makro, które będzie kopiowało dane z określonego zakresu, dodając jednocześnie określone dane do kolumny.

Np. Zakres danych: A2:E5, zakres jest kopiowany, a do kolumny F (F6:F10), dodawana określona wartość. I tak z dwadzieścia razy.

Range("A2:E6").Copy (Cells(Rows.Count, "A").End(xlUp).Offset(1))
    ost = Cells(Rows.Count, 6).End(xlUp).Row + 1
    ost2 = Cells(Rows.Count, 5).End(xlUp).Row
Range("F" & ost2 & ":F" & ost).FormulaR1C1 = "Magazyn_Kielce"

Range("A2:E6").Copy (Cells(Rows.Count, "A").End(xlUp).Offset(1))
    ost = Cells(Rows.Count, 6).End(xlUp).Row + 1
    ost2 = Cells(Rows.Count, 5).End(xlUp).Row
Range("F" & ost2 & ":F" & ost).FormulaR1C1 = "Magazyn_Lodz"

Range("A2:E6").Copy (Cells(Rows.Count, "A").End(xlUp).Offset(1))
    ost = Cells(Rows.Count, 6).End(xlUp).Row + 1
    ost2 = Cells(Rows.Count, 5).End(xlUp).Row
Range("F" & ost2 & ":F" & ost).FormulaR1C1 = "Magazyn_Warszawa"

Skopiowałam wielokrotnie dane i zmieniłam magazyn. Ok - działa. Problem leży w tym, że czasami zakres (A2:E6) się zmienia, więc bez sensu zmieniać wszytsko za każdym razem, gdy będę uzytkowała makro.

Czy istnieje możliwość stworzenia pętli, np. mam magazyny Magazyn_Lodz, Magazyn_Warszawa, Magazyn_Kielce, Magazyn_Krakow i system kopiuje te dane, dodaje wartości do kolumny F, aż nie "wyczerpie" magazynów?

Będę wdzięczna za pomoc!

Jak zorganizowane są dane dla poszczególnych magazynów?
W tym samym arkuszu?

Jawlo, bardzo dziękuję za post.

Arkusz wygląda tak, jak w załączeniu, tym samym podejrzewam, że jest problem z magazynami - nie istnieją one w żadnej kolumnie od A:E.

Czy da się je jakoś nazwać? Np. 1=Magazyn_Warszawa aż do 5=Magazyn_Kielce i wtedy tworzę pętlę: powtarzaj co jeden, od jeden do pięć? Snuję tylko przypuszczenia, nie mam tak zaawansowanej wiedzy...

Można ten kod, który już masz osadzić w pętli for.. each.
Tutaj masz przykłady.
Zobacz ten drugi przykład z pętlą zagnieżdżoną.