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
Rows(ActiveCell.Row & ":" & (ActiveCell.Row + 2)).Insert


"Mike H" wrote:

I can't see where your macro gets a value for h from but one methed of
inserting a full row would be.

Selection.EntireRow.Insert

Mike

" wrote:

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