how can I insert three rows between rows of data. right now all i have
is activecell.insert but that only inserts one row.

Dim k As Integer
Dim w As Integer
For w = 1 To 6
For k = 0 To 100
h = ((2 * (k + 1)) - 1)
Cells(h, w).Activate
ActiveCell.Insert