ExcelBanter - add xtra rows to before the subtotal rows.

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - add xtra rows to before the subtotal rows. (https://www.excelbanter.com/excel-programming/398044-add-xtra-rows-before-subtotal-rows.html)

Janis

add xtra rows to before the subtotal rows.

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

Janis

add xtra rows to before the subtotal rows.

see repost

"Janis" wrote:

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

All times are GMT +1. The time now is 05:16 PM.