inserting three rows

[carlos_ray86]

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

 

[Guest]

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

 

[Bernie Deitrick]

Sub test()
Dim k As Integer

For k = 100 To 1 Step -1
Cells(k, 1).Resize(3, 6).Insert
Next k

End Sub


HTH,
Bernie
MS Excel MVP

 

[Guest]

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