Как скопировать диапазоны которые находятся на равном растояние друг от друга...

[Алексей11111]

Извини, помоги плз ещё раз, а как сделать тоже самое, только скопировать значения без формул из диапазонов этих?

[EducatedFool]

Sub КопироватьТолькоЗначения()
    Dim ra As Range: Set ra = Worksheets(1).Range("a3:d5")
    For i = 0 To 300
        Worksheets(2).Range("a1").Offset(i * 7 + 6).Resize(ra.Rows.Count, ra.Columns.Count).Value = _
        ra.Offset(i * 6).Value
    Next

    ' короче, смысл такой:
    '    ДиапазонНовый.Value = ДиапазонИсходный.Value
    ' PS: Размеры диапазонов должны совпадать
End Sub

И ещё вариант:

Sub test()
    For i = 0 To 300
        Worksheets(1).Range("a3:d5").Offset(i * 6).Copy
        Worksheets(2).Range("a1").Offset(i * 7 + 6).PasteSpecial xlPasteValuesAndNumberFormats
    Next
    Application.CutCopyMode = False
End Sub

[Алексей11111]

Спасибо, теперь всё оконченно... всё подошло)))