Копирование и вставка с интервалом

[kangaroo]

Добрый день.

Существует лист с данными. Заполнены ячейки. A4:DO67.
Необходимо скопировать данные из "D4:E67" и вставить в столбец с интервалом в два столбца. Т.е. следующий будет H4:I67 и т.д. до DO.

[Казанский]

Непонятно. Файл-пример приложите.

[kangaroo]

DE нужно скопировать в HI, LM и т.д.

[Казанский]

kangaroo,
здесь правый край таблицы определяется автоматически. Можно и нижний край определять автоматически. Можно в DE вставлять формулы тоже макросом. Можно подправить формулы, чтобы не было #ДЕЛ/0!

Sub Kangaroo()
Dim i As Long, r As Range, t As Range
  Set r = Range("D4:E67")
  Set t = r
  For i = 8 To Cells(3, Columns.Count).End(xlToLeft).Column Step 4
    Set t = Union(t, Cells(4, i).Resize(64, 2))
  Next
  r.Copy t
End Sub

[kangaroo]

Спасибо, всё супер!
Я в DE формулы макросом вставляю

[kangaroo]

#ДЕЛ/0! получилось исправить