macro to paste formulas every 5 rows

[drewbny]

how do i create a macro to paste a row of formulas to every 5th row?.
in another words i want the formulas to not get pasted over the next 4 rows and paste on the 5th row. then keep doing that within a certain range of data.

also can i do with a range of data?
so lets say i want to paste three rows of data, i can do that to every 5th row?

 

[Jamie McMillan]

how do i create a macro to paste a row of formulas to every 5th row?.
in another words i want the formulas to not get pasted over the next 4 rows and paste on the 5th row. then keep doing that within a certain range of data.

also can i do with a range of data?
so lets say i want to paste three rows of data, i can do that to every 5th row?

Hello Drew,

The code below will copy a range and paste it every 5 rows.

Sub copyrangetofive()
Dim i As Integer
i = 5
    For i = 5 To 100 'Change the 100 to the last row you wish to copy to
    Range("A1:D3").Copy Cells(i, 1) 'Change Range("A1:D3") to the range you wish to copy
    i = i + 5
    Next i
End Sub

The green text is just comments - you can delete them without worry.

Jamie McMillan

 

[drewbny]

Hello Drew,

The code below will copy a range and paste it every 5 rows.

Sub copyrangetofive()
Dim i As Integer
i = 5
    For i = 5 To 100 'Change the 100 to the last row you wish to copy to
    Range("A1:D3").Copy Cells(i, 1) 'Change Range("A1:D3") to the range you wish to copy
    i = i + 5
    Next i
End Sub

The green text is just comments - you can delete them without worry.

Jamie McMillan

This is awesome!! Thank you.
Wish Excel had this feature built in to insert, paste or remove multiple rows easily without manually selecting the rows