کپی اطلاعات سلول ها با فاصله دلخواه

[ali.b]

Sub StaggerCopy()Dim i As Long, c As Long
c = 4


    For i = 8 To 41
        Sheets("Sheet1").Range(Cells(3, i), Cells(143, i)).Copy _
            Sheets("Sheet2").Cells(4, c)
        c = c + 5
    Next i


End Sub