Hej jestem początkującym "programistą vba".
Mam pytanie na temat tego jak zapętlić taki kod:
Dim i, j As Integer
i = 7
j = i - 1
Do Until Cells(i, 3) <> ""
Cells(i, 3) = Cells(j, 3)
i = i + 1
Loop
j = i
i = i + 1
Do Until Cells(i, 3) <> ""
Cells(i, 3) = Cells(j, 3)
i = i + 1
Loop
j = i
i = i + 1
Do Until Cells(i, 3) <> ""
Cells(i, 3) = Cells(j, 3)
i = i + 1
Loop
j = i
i = i + 1
Do Until Cells(i, 3) <> ""
Cells(i, 3) = Cells(j, 3)
i = i + 1
Loop
....
Dodatkowo chciałabym żeby te działania byly wykonywane do momentu, aż Excel wykryje pierwszą niepustą komórkę w kolumnie A, startując od wiersza 7 w tej kolumnie.
Bardzo dziękuję za pomoc! 
