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

[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