Перенести данные

[Belokuraya]

Вопрос очень простой, на первом листе имеется таблица с данными (диапазон столбцов известен, кол-во строк постоянно увеличивается), данные из этой таблицы необходимо перекинуть на другой лист, но так, чтобы строки расположились не одна за другой, а через три.
Писала разные циклы, но того, что нужно не получилось(((

[Tirendus]

я бы сделал так

-----

упс, походу я не так понял думал, вы про столбцы, а не строки говорите

[The_Prist]

Dim li As Long
Application.ScreenUpdating = False
Cells(1, 1).EntireRow.Copy Sheets("Лист3").Cells(1, 1)
For li = 2 To Cells(Rows.Count, 1).End(xlUp).Row
 Cells(li, 1).EntireRow.Copy Sheets("Лист3").Cells((li - 1) * 4, 1)
Next li
Application.ScreenUpdating = True

Самый простой вариант.

[Belokuraya]

The_Prist, спасибо, только вот на листе, с которого я беру данные, у меня один диапазон столбцов (напр. с 30 по 109), а на листе, куда я их переношу - другой(напр.с 5 по 86).

[The_Prist]

Ну тогда так

Range(Cells(li, 30),Cells(li,109)).Copy Sheets("Лист3").Cells((li - 1) * 4, 5)

[Belokuraya]

хм, а если через цикл:

For v = 30 To 109
pro = ActiveWorkbook.Worksheets("Prod").C ells(i, v).Value
ActiveWorkbook.Worksheets("Report2M onth").Cells(j, u).Value = pro
Next

только вот как для u задать диапазон с 5 по 86?

[Belokuraya]

Разобралась сама, спасибо)))