Я посмотрел, но не могу найти решение.
Как вы увеличиваете переменную? Как и в любом другом языке, вы просто делаете ++ (имя переменной) как раз перед концом цикла. В моем примере я хотел бы увеличить J.
Dim j as integer
j = 13
FinalRow = Range("B15").End(xlUp).Row
For i = 9 To FinalRow
Range("B" & i).Copy Destination:=Sheets("Design").Range("A" & j)
J++
Next i
Код повторяется от B9-B15 и вставляет информацию в конструкторскую таблицу от A13 и ниже.