add xtra rows to before the subtotal rows.

G

Guest

I need to add 24 rows to each group in column "H" that are the same. It is
stopping
on the Do Until. My last row is 1442. I want it to stop there. I don't
know how to tell it to keep going until the end.
tia,

Private Sub PutARowIn()
Range("H12").Select
Do Until ActiveSheet.Rows.Value = 1442
If ActiveCell.Value = ActiveCell.Offset(-1, 0).Value Then
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.EntireRow.Insert
ActiveCell.Offset(2, 0).Select
End If
Loop
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

macro to add 24 rows to each group in column H 1
need to add 24 rows to each service group 5
How can I streamline this repetitious piece of code? 2
Delete Rows Prior to Last Month 4
minutes aren't minutes? 7
Loop Repeats - PLS HELP 2
Can Vba workout if a selection is part of a group? 0
Stop the loop after it runs for 10 times. 3

Top